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ELEPHUirNEVER  FORGETS. 


A  full  line  ofwp-mmlliy  flomnes,  in  vinuaHy  every  5  'A "  mi^  S"  model,  for  comimiibiliiy  with  virtuaUy  evm  c  ompiiier  on  the  market. 
Guaranteed  to  meet  or  exceed  every  industry'  standard,  certified  ■100%  emr-free  and  fmblem-free,  and  to  mainiaiii  its  qi-.aiuy  for  at  least  12  million  passes 

(or  over  a  lifetime  of  heavy-duty  use). 


Contact  Dennison  Computer  Supplies,  Inc.,  5?  Providence  Highway,  Norwood,  AlA  02062  or  call  toll-free  1-800-343-84^3. 
In  Massachusetts,  call  collect  (6U)  769-8150.  Telex  9x1-624. 
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WordPro  3  Plus764 

The  #1  Selling  Word  Processor  for  the  Commodore  64 
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WordPro  3  Plus'"/64  and  SpellRight  Plus'"  provide  a  total  word 
processing  solution  for  tlie  Commodore  64'"  which  gives  you: 


Sophisticated  Word  Processing 

Built-in  Mail  Merging  for  Form  Letters 

Math  Functions  for  Column  Totals 

Fast  and  Complete  Spell  Checking  via  SpellRight  Plus 

A  Super  Value  (two  programs)  for  Only  $99.95! 


WordPro  and  SpellRight  are  both  specifically  designed  for  the 
novice  user  with  no  computer  or  word  processing  experience 
whatsoever.  And  with  over  40,000  WordPro  versions  sold,  you 
can  be  sure  that  WordPro  is  a  very  sophisticated  word 
processor  loaded  with  powerful  features  including:  Transfer, 
Insert,  Delete,  and  Rearrange  Text,  Auto  Page  Numbering,  Math 
Functions,  Headers,  Footers,  Global  Search  and  Replace,  the 
Ability  to  Create  Multiple  Personalized  Letters  and  Documents, 
and  much  more.  WordPro  can  create  documents  of  virtually 
any  length  and  will  print  up  to  165  columns  wide.  You  get  all  of 
this  PLUS  fast  and  complete  spell  checking  using  SpellRight 
Plus! 


SpellRight  Plus  locates  and  highlights  misspelled  words  and 
then  allows  you  to  quickly  correct  the  misspellings  — 
improving  the  quality  of  your  letters  and  reports. 

And,  best  of  all,  WordPro  and  SpellRight's  powerful  arsenal 
of  features  can  be  put  to  use  almost  immediately  —  by  even 
the  novice  user.  So  whether  you're  a  student,  professional 
writer,  in  business,  education  or  a  hobbyist,  you'll  quickly 
become  a  WordPro  Pro! 

Both  WordPro  and  SpellRight  Plus  are  also  available  separately 
at  popular  computer  outlets  nationwide. 

Invest  in  the  best . .  .WordPro  Plus.  In  a  class  by  itself. 

Professional  Softwaie  Inc. 


51  Fremont  Street 
Needham,  MA  02194 


(617)444-5224 
Tefex:  951579 


Dealer  and  Distributor  inquiries  are  invited. 


WordPro  3  Plus™/64  and  SpellRight  Plus"  are  trademarks  of  Prolessional  Software  Inc. 

The  WordPro  Plus  Series  was  designed  and  written  by  Steve  Punter  of  Pro-Micro  Software  Ltd. 

SpellRight  Plus  was  designed  and  written  by  Dwight  Huff  and  Joe  Spatafora  of  SpellMaster  Systems,  Inc. 

Some  printers  may  not  support  certain  WordPro  3  Plus  functions  and/or  require  an  interface.  Please  checl<  with  your  dealer. 

Commodore  64'"  is  a  trademark  of  Commodore  Electronics  Ltd. 


IBM  PC  Software:  the  value  of  choosing 


Shoes, 
If  they  don't  fit,  they're  not  worth  wearing. 

Software  programs. 
If  they  don't  fit,  they're  not  worth  using. 

That's  why  it's  altogether  fitting  that  IBM 
Personal  Computer  Software  offers  you  a  choice. 


Size  up  the  selectilon. 

\bu'[i  find  many  types  of  programs  in  the 
IBM  software  library.  They'll  help  kei^p  you  on 
your  toes  in  the  office,  at  home  or 
in  school. 

There  are,  in  fact,  seven 
differenr  categories  of  IBM  pro- 
grams called  "families."  A  family 
of  software  for  business,  producrivity 
education,  entertainment,  lifestyle, 
communications  or  programming. 

Of  course,  every  program  in 
every  family  is  tested  and  approved  by 
IBM.  And  IBM  Personal  Computer 
Software  is  made  to  be  com[wtible 
with  IBM  Personal  Computer hardwaie. 
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programs  that  Jit. 


PutUngyour 
best  foot  forward. 

Although  every  person  isn't  on  equal  footing 
when  it  comes  to  using  personal  computer 
software,  there's  something  for  almost  everyone  in 
the  IBM  software  library. 

For  example,  you  may  be  on  a  shoestring 
budget  and  want  a  big  selection  of  programs 
with  small  price  tags. 

"Vbu  may  be  introducing  students  to 
computing  and  want  programs  that  arc  simple  to 
use  and  simple  to  learn. 

\bu  may  run  a  business  requiring 
sophisticated  inventory  and  payroll 
programs.  Or  you  may  run  a  business 
requiring  a  single  accounting  program. 


^bu  may  write  interoffice  memos  and  want  a 
streamlined  word  processing  program.  Or  you 
may  be  a  novelist  looking  for  a  program  with 
features  worth  writing  home  about. 

Now  you  can  find  IBM  Personal  Computer 
Software  that  fits  —  to  help  you  accomplish 
specific  tasks  and  reach  individual  goals. 

Stroll  into  a  store  today. 

What's  the  next  step? 

Visit  an  authorized  IBM  Personal  Computer 
dealer  or  IBM  Product  Center  near  you.  To  find 
out  exactly  where,  call  800-447-4700.  In  Alaska  ■ 
or  Hawaii,  800-447-0890. 

Ask  your  dealer  to  demonstrate  your  choice 
of  programs.  Then  get  comfortable.  Sit  down  at 
the  keyboard  and  try  IBM  software  on  for  size. 


Personal  Computer  Softivare 
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Advanced  spreadsheet 

SynCalc™ 


Database  management 

SynFlle+™ 


Graphing  and  statistics 

SynTrend" 


Now  your  Atari  computer 
gets  down  to 
business. 


If  you're  a  serious  home 
manager,  a  student,  or  run  a 
small  business  at  home,  now 
you  can  get  sophisticated,  inte- 
grated software  for  your  ATARI 
computer  with  the  same  fea- 
tures as  the  more  expensive 
IBM  and  Apple  packages, 

SynCalc 

makes  a  spreadsheet 

moie  monageable. 

First,  there's  SynCalc,  the  most 
advanced  spreadsheet  pro- 
gram ever  created  for  ATARI 
Home  Computers,  Not  only 
does  SynCalc  help  you  get  all 
your  numbers  down  easily  it 
also  comes  with  a  sorting  fea- 
ture, and  the  ability  to  label 
and  name  your  formulas  like 
"beginning  inventory  -i-  goods 
purchased -goods  sold  =  in- 
ventory on  hand,"  as  well  as 
standard  entries.  And  SynCalc 
also  comes  with  "expert"  com- 
mands, to  use  once  you've  be- 
come more  familiar  with  its 
procedures.  Plus  many  other 


features  found  in  the  more  ex- 
pensive programs. 

SynFlle-t-  keeps  Infoimation 
more  organized. 

SynFile-i-  can  function  as 
your  database,  your  filing  sys- 
tem. With  SynFile-i-,  you  can 
reorganize  and  sort  parts  or 
whole  files  instantly  Not  only 
can  you  enter  text,  you  can  cal- 
culate and  update  data  as 
well.  And  files  from  both  Syn- 
Calc and  SynFile-i-  can  also  be 
used  by  the  ATARI  word  proc- 
essor, AtariWriter™  for  uses  such 
OS  mail  merge, 

SynTrend  gives  you 

a  more  graphic  way 

to  looK  at  data. 

Next,  there's  SynTrend,  which 
can  be  the  graphing  and  statis- 
tical arm  of  your  operation, 
SynTrend  allows  you  to  vis- 
ualize your  data  from  SynCalc 
or  SynFile-i-  with  either  bar 
graphs,  pie  charts,  line  graphs 
or  scatter  plots.  To  do  statistical 
analysis,  you  can  quickly  calcu- 


late means  and  variances, 
standard  deviations,  or  even 
linear  and  multiple  regres- 
sions. It's  pretty  easy  to  under- 
stand, eh?  And  also  pretty  easy 
to  operate  because  all  three 
programs  come  replete  with 
easy-to-understand  "pop-up" 
menus,  to  take  you  through 
their  paces  step  by  step.  And 
remember,  aU  three  programs 
can  share  data,  which  helps  you 
get  the  job  done  even  faster 

So  get  down  to  business  with 
SynCalc,  SynFile-h,  SynTrend, 
developed  exclusively  for 
ATARI  by  Synapse.  And  see  for 
yourself  why  the  cost  of  taking 
care  of  business  doesn't  have  to 
put  you  out  of  it, 

SynCalc.  5ynFlle  +  .  SynTrend  are  trademarks  ol 
Synapse  Soltware.  Synapse  Is  a  registered  trademark  ol 
Synapse  Soltware  Corporation,  IBM  and  Apple  are  re- 
spective trademarks  ol  [nlematlonal  Business  Machines 
Corp..  and  Apple  Computer. 
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EDITORS  NOTES 


I  was  unable  to  attend  this  sum- 
mer's Consumer  Electronics  Show, 
and  in  deference  to  its  impor- 
tance, asked  Selby  Bateman,  our 
Features  Editor,  to  contribute  a 
guest  editorial. 

Robert  C.  Lock 
Editor  In  Chief 


The  old  Chinese  curse  "May 
you  Hve  in  interesting  times" 
often  seems  to  have  been  aimed 
directly  at  our  present  high- 
tech,  microprocessor-based  era. 

At  least  that  may  have  been 
the  feeling  for  many  of  the 
98,271  attendees  who  shuffled 
and  stared  their  way  through 
June's  four-day  Consumer  Elec- 
tronics Show  in  Chicago.  More 
than  50,000  electronics  retailers 
and  over  2000  members  of  the 
press  were  among  that  number, 
each  of  them  trying  to  compre- 
hend the  overwhelming  quan- 
tity of  new  products  being 
offered  to  the  American  and 
world  markets. 

Almost  1400  different  ex- 
hibitors filled  811,000  square 
feet  of  space,  displaying  the  lat- 
est stereo  TV  receivers,  new- 
generation  digital  audio  disc 
players,  cellular  telephones, 
color  televisions  that  fit  in  the 
palm  of  your  hand,  video- 
cassettes,  car  stereos,  and — of 
course — computers,  software, 
and  hardware  peripherals. 

One  of  the  clearest  trends 
evident  at  CES  was  that  com- 
puters are  becoming  linked 
more  closely  with  almost  every 
other  consumer  electronics 
product  exhibited.  In  the  not  too 
distant  future,  the  fairly  clear- 
cut  lines  between  computers, 
stereos,  telephones,  video  sys- 
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terns,  and  many  other  products 
will  disappear.  This  will  become 
even  more  apparent  by  the  be- 
ginning of  1985,  with  the  arrival 
in  quantity  here  of  new  MSX 
operating  system  micros  from 
Japan. 

One  example  of  this  trend: 
Atari  chairman  James  Morgan,  in 
his  efforts  to  bring  his  company 
into  the  future  with  brighter 
prospects,  emphasizes  that  Atari's 
goal  isn't  just  to  produce  com- 
puters, but  to  "enhance  con- 
sumers' lives  through  interactive 
electronics."  That  sentiment  is 
being  echoed  in  different  words 
by  many  other  electronics'  man- 
ufacturers. They  see  their  prod- 
ucts getting  "smarter,"  as 
everything  from  washing  ma- 
chines to  automobiles  begins  to 
carry  microprocessors. 

Interesting  changes  in  micro- 
computer hardware  and  soft- 
ware were  everywhere  at  CES. 
While  the  great  majority  of  the 
public  attempts  to  understand 
microcomputer  developments 
that  are  essentially  several  years 
old,  the  industry  charges  for- 
ward at  a  gallop.  Even  for  those 
who  stay  abreast  of  the  latest 
news  from  the  high-tech  front 
lines,  the  power  and  the  pace  of 
change  in  this  industry  are  often 
bewildering. 

How  can  an  individual 
learn  about  and  digest  all  of  the 
innovations,  new  products, 
changing  technologies,  and  scat- 
tered trends  that  take  place  in 
the  computer  and  electronics 
field  on  a  daily  basis?  More  im- 
portantly, how  can  those  changes 
be  understood,  wisely  inter- 
preted, and  selectively  used? 

Although  we're  biased  on 
the  subject,  it  seems  obvious 
that  those  who  have  found  an 


interest  in — sometimes  a  pas- 
sion for — our  remarkable  com- 
puter revolution  may  be  in  a 
better  position  to  understand 
and  take  advantage  of  what  Eric 
Hoffer  called  the  wrenching 
"ordeal  of  change." 

One  model  for  us  is  the 
subject  of  this  month's  COM- 
PUTE! Interview,  physicist  Ge- 
rard O'Neill  of  Princeton. 
Throughout  his  career  as  a 
scientist,  writer,  lecturer,  and 
entrepreneur,  O'Neill  has  con- 
sistently blended  an  ability  to 
understand  society's  changes 
with  a  clear  vision  of  how 
things  can  and  should  work.  His 
books  and  his  interests  reflect  a 
mix  of  the  hard  sciences,  human 
values,  visionary  ideas,  and 
an  unquenchable,  optimistic 
curiosity. 

His  interests  are  eclectic — 
from  developing  colonies  in 
space  to  piloting  glider  planes  to 
researching  high-energy  physics 
to  working  with  his  Apple  II -i- 
computer.  Perhaps  it  is  O'Neill's 
curiosity  and  his  practical  opti- 
mism which  are  fundamental  to 
his  highly  successful  approach 
to  the  whirlwind  of  technologi- 
cal change.  Importantly,  those 
seem  to  be  characteristics  which 
our  readers  and  many  of  those 
who  are  intrigued  by  computing 
appear  to  have  in  abundance. 

Is  it  really  a  curse  or  a 
blessing  to  live  in  interesting 
times?  Samuel  Clemens  once  re- 
marked that  anyone  who  has 
held  a  bull  by  the  tail  knows 
five  or  six  things  more  than 
someone  who  hasn't.  So  enjoy 
the  mixed  blessings  of  the 
microcomputer  revolution,  and 
the  fact  that  you  know  five  or 
six  things  more  than  you  did 
before. 


Thanks  To  CompuServe's 

CB  Simulator, 

"Digital  Fox"  Accessed  "Data  H  ari"And 

Proceeded  To  An"Altared"State. 


The  CB  Simulator,  where 
CompuServe  Subscribers  can 
Access  Friends  and  Influence 
People  on  72  Different 
Channels. 

Just  pick  your  handle  and  get 
on  line.  From  math  to  matrimony, 
there's  always  someone  out  there 
\4io  speaks  your  language.  Friends 
from  all  over  the  U.S.  and  Canada  are 
at  it  24  hours  a  day.  Talking  tech  or 
just  having  fun.  And  if  you've  got  a 
secret,  just  use  the  CB  Scrambler. 


That'll  fool  the  "lurkersr  those  CB 
"see  it  alls"  who  get  their  kicks 
by  watching.  Or  you  can  always  use 
the  private  talk  mode  for  guaranteed 
one-toone  conversation. 

The  CB  Simulator  is  just  one 
of  CompuServe's  many  electronic 
communications  options  that 
include  a  National  Bulletin  Board, 
Professional  Forums  and  Electronic 
Mail.  Plus,  there's  a  world  of  on-line 
information  cind  entertainment  all 
for  the  price  of  a  local  phone  call 
plus  connect  time. 


You  can  access  CompuServe 
with  almost  any  computer  and 
modem,  terminal  or  communicating 
word  processor 

To  receive  your  illustrated 
guide  to  the  CompuServe  Information 
Service  and  learn  how  to  subscribe, 
call  or  contact: 

CompuServe 

Consumer  lnlormatronSeri.icB.PO  Box2D2l2 
5000  Arlington  Centre  Blvd    Cotjmbus  OH  43220 

800-848-8199 
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The  Editors  and  Reoders  of  COMPUTEi 


How  Much  Commodore  64  Memory? 

[  have  a  Commodore  64.  How  do  I  determine 
how  much  memory  a  program  occupies?  1  cannot 
find  this  information  in  either  the  64  User's  Man- 
ual or  the  Programmer's  Reference  Guide. 

Donald  E.  Lassiter,  Jr. 

The  amount  of  BASIC  memory  available  on  the  64 
is  38,911  bytes.  You  will  see  this  message  when  you 
first  turn  the  64  on.  To  determine  hoxv  much  mem- 
ory is  left  free  (unused),  type  and  enter: 
PRINT  FRE(0)-65536*(FRE(0)<0) 

or 

PRINT  FRE(0)  +  2T16 

To  determine  hou'  much  memory  a  program  is 
using,  subtract  the  value  received  using  the  formula 
above  from  38911,  or  type  and  enter: 

PRINT  38911-(FRE(0)-65536*(FRE(0)<0)) 


or 


PRINT  38911  -  (FREW) +  2T 16) 


Apple  Pascal 

I  am  interested  in  learning  more  about  Apple's 
Pascal  operating  system.  Is  it  software  that  needs 
to  be  loaded  from  disk  or  on  a  card  that  needs  to 
be  installed  or  w^hat? 

Mirim  Lew 

Apple's  Pascal  operating  system  is  a  version  of  the 
UCSD  Pascal  system,  written  at  the  University  of 
California  at  San  Diego.  It  is  supplied  on  disk  and 
loaded  into  RAM,  where  it  is  used  in  place  of  the 
normal  Applesoft  ROM.  This  disk  is  all  that  is 
needed  on  neiver  Apples  (He's  and  Ik's).  Apple  II's 
and  II  +  's  don't  contain  the  extra  RAM  needed  to 
hold  Pascal  and  require  the  Apple  Language  Card — 
a  special  16K  memory  card  which  plugs  itito  inter- 
face slot  zero. 

Atari  Checksum  Errors 

I  have  had  my  Atari  computer  for  a  year  now, 
but  1  still  have  a  few  unanswered  questions  you 
might  be  able  to  help  me  with.  Sometimes  when 
I  load  a  program  off  my  cassette,  I  get  something 
called  a  "serial  bus  data  frame  checksum  error." 
What  does  this  mean,  and  how  can  I  remedy  it? 
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Also,  when  I  get  an  error  in  the  middle  of  the 
loading  process,  is  there  any  way  I  can  retrieve 
the  portion  that  did  load  correctly?  And  is  there  a 
way  to  verify  Atari  SAVEs? 

Jeff  McCain 

The  "serial  bus  data  frame  checksum  error"  and  its 
cousin,  "serial  data  frame  overrun,"  are  just  Atari's 
way  of  telling  you  that  the  computer  encountered  a 
tape  error.  The  tape  drive  is  very  sensitive  to  errors 
in  timing — if  a  tape  is  stretched  in  the  middle,  it 
will  throiv  off  the  bit  timing.  You  can  also  get  this 
error  if  you  didn't  allow  enough  leader  when  you 
positioned  the  tape  for  CLOAD. 

An  incomplete  program  can  be  a  major  prob- 
lem. Due  to  the  way  Atari  programs  are  stored, 
BASIC  must  know  how  to  find  the  exact  end  of  a 
program.  A  partial  program  is  often  cut  off  in  the 
middle  of  a  line,  and  when  BASIC  scans  to  find  the 
end  of  the  program,  it  locks  up,  not  finding  it.  So  to 
prevent  this  problem,  a  faulty  LOAD  causes  the 
partial  program  to  be  NEWed.  If  you  store  programs 
with  LIST  "C:",  you  can  then  ENTER  "C"  to  re- 
trieve it.  If  there  is  an  error,  you  will  still  be  left 
with  a  partial  program.  You  can  continue  with 
ENTER  "€,•",  and  you  may  pick  up  more  and  more 
of  the  listing. 

ENTER  can  also  be  used  to  verify  a  LISTed 
program.  If  you  ENTER  a  program  that  you  have 
just  LISTed,  the  program  in  memory  will  twt  be 
lost.  If  it  ENTERS  without  an  error,  you've  verified 
that  the  data  is  stored  correctly.  Otherwise,  you'll 
Still  be  left  with  the  program  in  memory,  so  you  can 
try  again.  LIST  and  ENTER,  though,  are  sloiver  and 
use  more  tape  space  than  CSAVE  and  CLOAD. 

Pushing  And  Pulling  The  Stack 

When  programming  in  BASIC  or  machine  lan- 
guage, how  does  pushing  and  pulling  things  on 
the  stack  affect  the  return  jump? 

Thomas  McCrossin 

The  stack  is  an  area  of  256  RAM  memory  bytes  that 
is  used  to  hold  return  addresses  for  BASIC  GOSUBs 
and  machine  language  }SRs. 

When  a  GOSUB  is  encountered  while  running 
a  BASIC  program,  the  following  happens: 

1.  In  the  simplest  terms,  the  memory  address  ■ 
of  the  next  executable  statement  following  the 
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INTRODUCING  ACnVISION 


SEE  VOURSELF  IN  A 


r»«  •• 


'  -■^<rr,'^ 


You  leave  the  sun  behind  as  you  lower  youiself 
down  into  the  unexplored  caverns  beneath 
the  Peruvian  jungle .  Deeper  and  deeper  you  go. 
Past  Amazon  frogs,  condors,  and  attacking 
bats.  Across  cel-infcsted  underground  rivers. 
From  cavern  to  cavern,  level  to  level.  Swim- 
ming, running.dodging,  stumbling, you  search 
for  the  gold,  the  Raj  dia- 
mond and  fhe  thing  you 
really  treasure . . .  adven-    . . 
ture.  Head  for  it.  Designed  t  -^  . 
by  David  Crane.  *'^ 


You  have  heard  the  elder  speak  of  one  central 
source  and  a  maze  of  unconnected  grey  paths. 
As  you  connect  each  grey  path  to  the  central 
source,  what  was  grey  becomes  the  green  of 
life  .When  all  are  connected,  then  you  have 
achieved  "Zenji!'  But  beware  the  flames  and 
sparks  of  distraction  that  move  along  the  paths. 
You  must  go  beyond  strat- 
egy speed,  logic.Trust 
your  intuition. The  ancient  j 
puzzle  awaits.  Designed 
by  Matthew  Hubbard. 


You  strap  on  your  helicopter  prop-pack,  check 
your  laser  helmet  and  dynamite  .There's  no 
predicting  what  you'll  have  to  go  through  to 
get  to  the  trapped  miners.  Blocked  shafts, 
molten  lava,  animals,  insccts,who  knows  what 
lies  below.  But  you'll  go,  you 're  in  charge  of 
the  Helicopter  Emergency  Rescue  Operation. 
The  miners  have  only  one  ^^■MK' 
chance  .You. The  opening  j^^^^^F  ^5^  (£5. 
shaft  is  cleared  now,  it's     b= :  ■■•'"'  cj\^,J?^ 
time  to  go .  Designed  by    'l'     _'  '  ^* 
John  Van  Ryzin.  >i'«*I 
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V/hat  if  you  were  sitting  in  front  of  your  Commodore  64  "  programnmig  your  own  Rtfall  Harry"  adventure?  !t 
•^        j  can  happen  with  a  little  help  fixsm  the  creator  of  Rtlall  Hany:  David  Crane. Jtist  vwite  yourname  and  address 

i  or.  a  piece  of  paper,  tape  25C  to  it  for  postage  and  handling  and  mail  tO:  The  Activision  C-64  Qub.PO.  Box  7287, 
Mountain  View,  CA  MOSQ.Well  send  you  David's  Booklet,  "Programming  Pitfell  Hairy:'  II  includes  a  written 
program  that  helps  you  create  your  cpwn  adventure.  Go  for  it. 


FOR  YOUR  COMMODORE  64. 
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DIFFERENT  UGHT 


,-ry: 


r^-- 


N.i 


l^^ 


cJEie 


As  you  suit  up  you  see  the  webbed  forcefield 
surrounding  your  planet.  Holding  it.Trapped 
with  no  escape.  No  hope.  Except  you;  The 
Bcamrider.The  freedom  of  milfions  depends 
on  you.  Alone  you  speed  along  the  grid  of 
beams  that  strangle  your  planet.You  must  de- 
stroy the  grid  sector  by  sector. Your  skills  and 
your  reflexes  alone  will 
determine  the  future  of 
your  peopie.Takc  their 
ftiture  in  your  hands. 
Designed  by  Dave  Rolfe. 
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You  can  almost  hear  the  quiet.  And  it's  your 
job  to  keep  it  that  way.  A  toy  factory  at  midnight. 
Did  you  hear  something?  Guess  not.Wrong! 
Suddenly  baJloon  valves  open,  conveyor  belts 
move  and  a  whole  factory  fiill  of  toys  goes 
wnld.  Even  the  robot,  their  latest  development, 
is  on  the  loose  and  after  you.  Capture  the 
runaway  toys.  Restore 
order.  Restore  peace. 
Restore  quiet.  Do  some- 
thing! Hurry!  Designed 
by  Mark  Turmell. 


You  made  it.The  Olympics.You  hear  languages 
you've  never  heard.  And  the  universal  roar 
of  the  crowd.You  will  run.  Hurl.Vault.  Jump. 
Ten  events.  One  chance.You  will  push  yourself 
this  time.  Further  than  ever.  Harder  than  ever. 
But  then ...  so  will  everyone.The  competition 
increases, now  two  can  compete  at  the  same 
time.The  crowd  quiets. 
The  starting  gun  sounds. 
A  blur  of  adrenalin. 
Let  the  games  begin. 
Designed  by  David  Crane,  I 
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We  put  YOU  in  the  game. 


COSUB  is  pushed  onto  the  stack.  (Specificalh/, 
it's  the  address  wiuus  one  byte.) 

2.  The  branch  to  the  subroutine  is  taken,  and 
the  subroutine  is  executed. 

3.  When  the  RETURN  is  encountered  in  the 
subroutine,  the  return  address  information  is 
pulled  off  the  stack,  program  control  is  re- 
turned to  that  point,  and  processing  continues. 

Basically,  the  same  sequence  of  events  is  taken 
when  using  machine  language.  When  a  JSR  is  en- 
countered, the  return  information  is  pushed  onto  the 
stack,  the  branch  is  taken,  and  when  the  RTS 
(ReTurn  from  Subroutine)  is  encountered,  the  infor- 
mation is  pulled  from  the  stack,  and  control  is  re- 
turned to  that  place  in  the  program. 

When  using  GOSUBs  ami  JSRs,  this  stack 
actiinty  is  automatically  performed  by  the  computer. 

However,  you  can  push  and  pull  stack  infor- 
mation yourself  This  can  be  done  with  the  use  of 
the  PHA  machine  language  instruction,  zohich 
pushes  the  number  in  the  Accumulator  onto  the 
stack,  and  PLA,  which  pulls  a  byte  off  the  stack  and 
places  it  in  the  Accumidator.  Other  stack  commands 
available  are  PHP,  which  pushes  the  processor  sta- 
tus onto  the  stack,  and  PLP,  which  pulls  a  byte  from 
the  stack  and  puts  it  into  the  status  register. 

Manipulating  the  stack  can  be  tricky.  However, 
if,  after  jumping  to  a  subroutine,  you  wish  to  return 
someivhere  else,  you  can  pull  the  return  information 
off  the  stack  (placed  there  by  the  operating  system), 
and  replace  it  with  your  data  using  the  PHA 
command. 

The  stack  can  also  be  used  as  a  temporary  stor- 
age place  for  data  in  machine  language  program- 
ming. Instead  of  storing  information  in  zero  page,  or 
some  other  area,  push  it  onto  the  stack.  When  it's 
needed  again,  pull  it  back  off.  But  be  careful,  be- 
cause the  stack  can  hold  only  256  bytes  of  infor- 
mation. Also  if  you  RTS  before  PLAing  the  byte  or 
bytes  off  the  stack,  the  return  address  will  be  wrong. 


Tl  Programs  Vs.  Data  Files 

I  read  somewhere  that  if  a  TI-99/4A  program 
sets  up  a  data  file,  the  data  file  should  be  stored 
on  a  separate  disk  or  cassette  from  the  program. 
Why  is  that?  It  seems  to  me  that  the  logical  place 
for  the  data  would  be  on  the  same  disk  or  cas- 
sette as  the  program  using  it. 

Florence  Fischer 

Files  are  not  saved  or  loaded  by  name  on  a  cassette, 
and  the  TI  makes  no  distinction  between  data  and 
program  files.  As  a  result,  if  you  place  a  data  file  on 
a  tape  following  a  program  file,  you  may  have  diffi- 
culty locating  the  data  file  (especially  if  your  re- 
corder lacks  a  moderately  accurate  counter).  Also,  if 
you  place  the  data  file  prior  to  the  program  file  on 
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the  tape,  and  later  expand  your  data  file,  you  may 
end  up  writing  over  the  program  file. 

For  these  reasons,  it  is  wise  to  keep  your  pro- 
gram and  data  files  on  separate  cassettes  (or  on  op- 
posite sides  of  a  single  cassette).  No  such  problems 
exist  for  disk  files  since  programs  are  stored  by 
name  and  are  labeled  as  program,  data,  etc.,  on  the 
disk. 


Slowing  Things  Down  On  VIC,  64,  Or 
PET/CBM 

I  found  something  very  interesting  while 
experimenting  with  my  64.  While  listing  a  pro- 
gram, 1  noticed  that  if  you  press  the  CTRL  key 
the  listing  will  slow  down.  Does  this  work  on  all 
Commodore  computers?  Is  it  supposed  to  do 
this? 

Mike  Merriman 

Yes,  it  is.  Pressing  the  CTRL  key  on  the  Commodore 
64  or  the  VlC-20  will  slozo  the  listings,  and  some 
BASIC  programs.  On  the  older  CBM  (Commodore 
Business  Machines)  computers  like  the  8032,  the 
PET,  etc.,  pressing  the  1  key  will  do  the  same  thing. 
This  is  to  allow  you  to  read  the  listings  more  easily 
as  they  scroll  by. 

To  see  how  this  affects  a  BASIC  program,  type, 
enter,  and  RUN  the  following  program.  While  it  is 
running,  press  the  CTRL  key  and  see  what  happens: 
10  PRINT" A":GOTO10 

Z80  Atari  XL? 

I  have  an  Atari  800  and  I  am  thinking  about 
moving  on  to  a  more  sophisticated  system  like 
the  Atari  1450XLD.  I  have  heard  that  the  600XL 
and  800XL  are  much  like  the  older  400/800 
models,  but  how  about  the  1400XL  and 
1450XLD?  Is  the  BASIC  language  different?  1 
heard  it  has  a  Z80  microprocessor.  Is  all  this 
true? 

Alekos  Couloumbis 

The  600XL  and  800XL  computers  are  very  much 
like  the  400  and  800.  The  600XL  and  806XL  are  al- 
most identical,  except  that  the  600XL  has  16K  while 
the  800XL  has  64K.  There  have  been  some  enhance- 
ments to  the  operating  system  of  the  XL  computers, 
making  it  different  enough  so  that  some  400/800 
programs  will  7wt  run  on  the  XL  computers.  How- 
ever, Atari  has  a  Translator  disk  available  through 
its  Customer  Service  that  allows  you  to  run 
400/800  programs  on  your  XL  computer.  The  BASIC 
in  all  XL  computers  (except  the  late  1.200XL)  is 
built-in,  and  almost  identical  to  the  earlier  Atari 
BASIC,  except  that  the  infamous  keyboard  lockup 
has  been  fixed  and  the  exponentiation  function  has 
been  improved. 

The  Atari  600XL  and  800XL  are  now  in  full 
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production.  The  1400XL  will  not  be  marketed,  and 
the  future  of  the  1450XLD  is  still  somewhat 
uncertain. 

The  1450XLD  has  a  bigger  keyboard  than  the 
600XL  and  800X1,  with  extra  function  keys.  It  also 
boasts  a  built-in  speech  synthesizer  and  direct- 
connect  modem.  The  1450XLD  has  a  built-in,  double- 
sided,  double-density,  high-speed  disk  drive. 

The  1450XLD  does  not  have  a  Z80  coprocessor. 
At  the  June  1983  CES,  Atari  showed  a  CP/M  Z-80 
interface.  Then  at  the  January  1984  CES,  Atari  said 
that  they  would  not  market  it,  but  that  a  third-party 
company  might.  Rumors  continue  to  sioirl  around 
the  1450XLD,  and  Atari  may  well  market  a  slightly 
different  1450XLD  than  was  shown  at  recent  shows. 

Confusing  POKEs 

When  typing  in  your  programs,  I  have  some- 
times come  upon  statements  involving  POKEing 
in  the  PEEK  of  the  same  POKE.  I  would  like  to 
know  how  this  works.  I  also  don't  understand 
POKEing  the  PEEK  while  ANDing/ORing  an- 
other number  such  as: 

10  POKE  12345,  PEEKa2345)  OR  67 

To  add  to  my  confusion  would  be  an  IF  PEEK 
statement  THEN  command,  that  is: 


20  IF  PEEK(12345)  THEN  GOTO  67 


or: 


30  IF  9  AND  PEEK(12345)  THEN  GOTO  67 

Can  you  explain  this  for  me? 

Dwight  Weese 

Usually,  when  you  see  a  POKE  and  a  PEEK  to  and 
from  the  same  byte,  it's  done  in  conjunction  with  an 
AND  or  OR  command. 

Each  byte  is  composed  of  eight  bits.  Each  of  the 
eight  bits  is  like  a  light  switch:  It  can  be  either  on 
(1)  or  off  (0).  Each  of  the  eight  bits  has  its  own  value 
(see  illustration  below). 


bits  in  the  byte  are  turned  on  or  off  according  to  the 
rules  governing  AND  and  OR.  The  mask  can  be 
thought  of  as  an  imaginary  byte  with  bits  set  or  not 
depending  tin  the  mask  number. 

The  bit  pattern  of  the  masking  byte  follows  the 
same  rules  of  binary  numbers  described  above.  For 
example,  if  you're  ANDing  or  ORing  with  a  value 
of  21,  the  bit  pattern  of  the  mask  would  look  like 
00010101  (16-\-4  +  l  =  21). 

When  you  AND  a  byte,  you  compare  each  bit  of 
the  byte  with  each  bit  of  the  mask.  The  result  will 
be  an  "on  bit"  only  if  both  bits  (of  the  byte  and  the 
mask)  are  "on"  in  that  position. 

For  example,  ANDing  a  byte  with  a  value  of 
eleven  (00001011)  with  a  three  (00000011)  would  re- 
sult in  00000011  (three).  This  is  because  the  1  and  2 
bits  of  both  bytes  were  I's,  but  the  8  bit  in  the  mask 
was  a  0. 

ORing  a  byte  compares  each  bit  in  the  same 
manner  as  the  AND.  But  when  you  OR,  if  the  bit  in 
either  the  original  or  the  mask  byte  is  a  one,  then 
the  result  is  a  one  ("on"). 

For  example,  ORing  a  byte  containing  a  value 
of  15  (00001111)  with  240  (11110000)  would  result 
in  lllllUl  (255).  This  is  because  in  all  cases  of  the 
compare,  at  least  one  of  the  bits  was  a  1. 

In  your  other  examples,  IF  PEEK  (12345) 
THEN  GOTO  67  is  a  standard  IF-THEN  compare. 
However,  in  this  case  there  is  no  comparing  ex- 
pression as  in:  IF  PEEK  (12345)  =1  THEN  GOTO 
67.  When  compares  are  done  in  this  manner,  it  is  a 
special  kind  of  test.  In  this  example,  the  branch  to 
67  would  be  taken  if  the  PEEKed  number  is  any- 
thing other  than  zero.  If  the  number  is  a  zero,  the 
test  fails  and  there  will  be  no  GOTO. 

The  third  example,  IF  9  AND  PEEK  (12345) 
THEN  GOTO  67,  is  the  same.  In  such  cases,  all 
numbers  will  answer  "yes"  to  the  IF,  except  zero, 
which  will  answer  "no."  The  IF  9  AND  PEEK(12345) 
expression  will  be  zero  in  those  cases  when  the  1 
and  8  bits  of  location  12345  are  both  zero. 


Bit 

7 

6 

5 

4 

3 

2 

1 

0 

Value 

128 

64 

32 

16 

8 

4 

2 

1 

Any  byte  can  hold  a  value  from  0  to  255.  The  value 
of  the  byte  is  determined  by  which  bits  are  on  or  off 
and  is  derived  by  adding  the  values  of  each  of  the 
on  bits.  This  is  called  a  binary  number.  For  example, 
a  byte  containing  a  value  of  1  would  look  like: 

00000001  (only  the  1  bit  is  on) 

A  decimal  eleven  would  look  like  00001011  (the 
8  plus  2  plus  1  bits  are  on,  so:  8-i-2-hl  =  11),  and 
a  byte  whose  value  is  255  would  be  11111111 
(128  +  64+32  +  16  +  5+4+2  +  2  =  255). 

When  you  use  the  AND  and  OR  commands,  it's 
like  placing  a  mask  over  the  eight  bits  in  the  byte. 
The  mask  is,  in  effect,  placed  over  the  byte,  and  the 
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Rainbows  For  Atari 

I  own  an  Atari  800  and  1  am  perplexed  about 
how  to  access  all  the  colors  in  graphics  mode  8. 
The  only  graphics  color  I  can  get  is  white.  How 
do  you  access  the  other  colors? 

Rod  MacPherson 

GRAPHICS  8,  like  GRAPHICS  0,  is  a  two-color 
mode.  You  can  display  a  character  or  a  pixel  in  ei- 
ther the  background  color  or  a  different  shade  (lumi- 
nance) of  the  background  color.  So  the  only 
nonbackground  color  you  get  in  GRAPHICS  8  is 
COLOR  1.  Due  to  the  way  TV  pictures  are  drawn, 
the  tiny  pixels  can  appear  in  differejit  colors, 
depending  on  what  column  they  are  in  (this  is  often 
called  artifacting).  You  can  extend  your  color  options 
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Get  the  most  out  of  your  Commodore  64  with  the  I  AH  THE 
C-64  tutorial  series  from  Creative  Software-  Each  practical 
operation  you  can  perform  is  explained  in  simple  terms  right 
on  the  screen. 

Step  by  step,  the  introductory  series  gives  you  an  overall 
introduction  to  the  Commodore  64,  an  introduction  to  the 
keyboard,  and  an  introduction  to  BASIC  programming 
language.  The  advanced  series  guides  you  through  advanced 
programming  techniques,  sprite  graphics,  music  and  sound 
effects, 

I  AM  THE  C-64  provides  you  with  a  friendly  and  patient 
private  tutor.  For  the  Commodore  64  owner,  this  tutorial 
package  is  an  unbeatable  combination  for  learning  all  the 
power  your  computer  has  to  offer. 


"COMMODORE  S4"  IS  A  IIl&DEHABK  OF  COHMOOOBE  ELECTBOHICS,  VtD, 
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this  way,  hut  u^c  can't  go  into  the  details  here. 
There  is  plenty  of  information  on  artifactiiig  and 
other  graphics  modes  in  COMPUTEI's  First  Book 
of  Atari  Graphics. 


Apple  Greetings 

In  my  experience  it  seems  that  for  the  PR#6 
command  to  work  on  the  Apple,  the  greeting 
program  that  one  INITializes  the  disk  with  must 
be  entitled  "HELLO".  After  RENAMEing  the 
greeting  program  and  attempting  to  boot  the 
disk,  a  FILE  NOT  FOUND  error  resulted. 

Jeff  Walsh 

Actually,  you  can  assign  any  filename  up  to  30 
characters  in  length  to  the  greeting  program  (or  to 
any  other  program).  Ordinarily,  this  is  done  during 
the  INlTialization  process.  When  INIT  is  executed, 
the  disk  is  formatted  and  the  name  of  the  greeting 
program  (in  addition  to  being  stored  in  the  catalog) 
is  placed  on  the  disk  in  sector  9  of  track  1.  So  when 
the  disk  IS  booted,  the  named  greeting  program  is 
automatically  run. 

If  you  later  decide  to  RENAME  your  greeting 
program  (as  you  did)  or  have  another  program  you 
wish  to  boot,  you  must  also  replace  the  filename  for 
the  booting  program  stored  in  track  1  or  a  FILE 
NOT  FOUND  error  occurs.  The  following  short  pro- 
gram lets  yau  replace  the  filename  in  track  I  with 
any  filename  you  choose: 

50   FOR  I  =  1  TO  36:  READ  J:  POKE  3071  + 

I, J:  NEXT 
100   INPUT  "NEW  GREETING  PROGRAM  NAME  - 

>";A* 
120  FOR  I  =   LEN  (A*)  +  1  TO  30 
130  A*  =  A*  +  "  "s  NEXT  I 
140   POKE  3072  +  22,1:  CALL  3072 
150   FOR  1  =  1  TO  30 
160   POKE  8192  +  116  +  I,  ASC  (  MID*  (A 

»,I,  1) )  +  128 
170   NEXT 

180   POKE  3072  +  22,2:  CALL  3072 
190   DATA   169,12,160,10,32,217 
200   DATA   3,96,0,0,1,96 
210   DATA   1,0,1,9,32,12 
220   DATA   0,32,0,0,2,3 
230   DATA   254,96,1,0,0,0 
240   DATA   0,0,0,1,239,216 

After  you  INPUT  your  new  filename,  the  pro- 
gram writes  it  to  track  1,  sector  9.  The  short  ML 
routine  in  this  program  enables  you  to  replace  the 
filename  on  the  disk. 

Cleaning  Commodore  Disk  Drives 

I  own  a  Commodore  64  and  a  1541  disk  drive.  I 
have  cleaned  the  disk  head  with  two  different 
cleaning  kits.  However,  neither  kit  had  instruc- 
tions on  how  to  turn  on  the  motor  and  lower  the 
head  for  the  30-60  seconds  that  is  recommended. 

1  a     COMPUTB      August  1 984 


The  best  I  have  been  able  to  do  is  use  LOAD 

"$",8  for  the  directory  many  times.  Even  this 
does  not  work  after  a  few  attempts. 

What  is  the  best  command  or  series  of  com- 
mands to  clean  the  disk  drives  using  these  kits? 

Douglas  Gwost 

The  easiest  way  to  spin  the  disk  drive  motor  and 
engage  the  head  is  loith  the  use  of  the  DOS  utility 
commands  (SCRATCH,  NEW,  VERIFY,  etc.). 

To  clean  the  disk  drive,  first  remove  any 
diskettes  that  may  be  in  the  drive.  Folloxv  the 
instructions  for  the  cleaning  disk  and  prepare  it  for 
use  (zvith  cleaning  fluid,  etc.).  Nozo  place  the  clean- 
ing disk  into  the  disk  drive,  close  the  door,  and 
enter  the  following  commands: 

OPEN  15,8,15 
PRINT  #15,"I" 

Entering  the  PRINT#15,"r'  command  three  or  four 
times  should  spin  the  disk  long  enough  to  fully 
clean  the  head.  After  cleaning  the  drive,  enter: 
CLOSE  15 

After  cleaning,  and  before  using  the  disk  drive,  you 
might  umnt  to  wait  a  few  minutes.  This  will  allow 
any  residual  cleaning  fluid  to  dry,  and  reduce  the 
possibility  of  contaminating  a  good  diskette. 


New  Atari  Graptiics  Mode? 

I  wrote  a  program  that  puzzles  me: 

10  GRAPHICS  9016;POKE  710,0 

20  X  =  INT(RND<0)*318); Y  =  INT(RND(0)*191) 

30  PLOT  159,95 

40  COLOR  Y:DRAWTO  X,Y 

50  GOTO  20 

What  is  graphics  mode  9016?  When  I  break  in 
and  rerun  the  program,  the  previous  picture  is 
not  erased!  Also,  sometimes  it  would  suddenly 
clear  the  screen.  Why?  Is  there  something  wrong 
with  my  computer? 

Gordon  E.  Gizowski  II 

No,  your  computer  is  fine.  You've  just  revealed 
some  of  the  peculiarities  of  BASIC  and  the  operating 
system.  First,  graphics  modes  are  specified  zvith  a 
number  from  0  to  15.  If  you  add  16  to  the  number, 
the  split  screen  will  be  disabled.  If  you  add  32  to 
the  number,  the  screen  will  not  be  cleared  zchen  the 
graphics  mode  is  entered.  But  anything  above 
15  +  16  +  32  is  just  chopped  off  In  binary  terms, 
only  the  lozoer  six  bits  of  the  mode  number  are  used. 
So  GRAPHICS  71  is  the  same  as  GRAPHICS  7+64. 
Since  64  (bit  6)  is  not  used,  GRAPHICS  71  is  the 
same  as  GRAPHICS  7.  GRAPHICS  9016  is  the  same 
as  8  +  32  +  16  +  8960.  Since  8960  is  outside  the 
range,  it  is  ignored,  and  you  get  8  +  32  +  16  (56), 
which  is  GRAPHICS  8  zoith  no  split  screen.  The  32, 
as  mentioned,  prevents  the  screen  from  being 
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Bumblebee  is  a  highly  interactive  game  which  provides  learning  in  a  fun 
environment.  That's  what  we  call  Concept  Education, 

Bart  the  Bee  will  demystify  the  programming  process  and  teach  your  kids 
basic  concepts  without  complex  computer  language.  The  player  controls 
Bart  by  giving  him  instructions  on  how  to  move  from  flower  to  flower, 
picking  up  "pollen  points."  Bart's  flight  pattern  must  be  carefully  designed 
to  avoid  bumping  into  walls  or  becoming  an  unfortunate  meal  for  Olga 
the  Spider  or  Phineas  the  Frog. 

Bumblebee  requires  logical  ■jf-then ""  thinking.  Your  child  is  rewarded  for 
accuracy  and  expediency  and  challenged  by  increasing  levels  of  difficulty. 

We  call  it  concept  education.  Your  kids  will  call  it  fun. 
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cleared  when  GRAPHICS  8  is  set  up.  A  portion  of 
the  previous  picture  may  have  been  destroyed, 
though,  if  you  have  changed  modes  (such  as  from 
GRAPHICS  8  to  GRAPHICS  0). 

The  reason  the  screen  was  sometimes  cleared  is 
in  line  40.  You  PLOT  and  DRAWTO  random  X,Y 
coordinates,  but  also  use  the  Y  coordinate  for  the 
color  number.  COLOR  also  chops  off  the  part  of  a 
number  that  is  not  used.  In  GRAPHICS  8,  only 
COLOR  1  and  COLOR  0  are  valid,  so  that  odd 
numbers  count  as  COLOR  1,  and  even  numbers 
work  as  COLOR  0.  PLOT  is  the  same  as  PRlNTing 
the  CHR$  value  of  the  color  at  the  screen  X,Y  po- 
sition (try  using  COLOR  and  PLOT  with  GRAPH- 
ICS 0,  1,  and  2  to  see  the  effect).  If  however,  the 
color  number  is  125,  it  is  interpreted  as  CHR$(125), 
which  is  the  same  as  the  code  for  clear  screen 
(CTRL-CLEAR).  So  COLOR  I25:PLOT  x,y  ivill  clear 
the  screen.  Your  program  is  interesting,  but  to  get 
the  intended  effect,  you  should  use  a  different  vari- 
able for  the  color.  For  example: 

25C  =  INT(2*RND(0)). 

40  COLOR  C:DRAWTO  X,Y 


Tl  Synthesizer  Update 

In  the  March  1984  issue  of  COMPUTE!,  reader  Jim 
Pate  suggested  using  CALL  PEEK(-28672,SP) 
on  the  TI-99/4A  to  check  if  the  Speech  Syn- 
thesizer is  attached.  He  said  that  if  it  were  at- 
tached, SP  would  be  96,  This  was  correct  to  an 
extent.  Because  the  address  —28672  is  part  of  the 
speech  read/write  buffer,  sometimes  (like  after  a 
CALL  SPGET  or  CALL  SAY)  a  value  of  96  will 
not  be  placed  into  5P.  To  avoid  this  problem,  in- 
stead of: 

IF  SP=96  THEN  CALL  SAYC'UHOH") 
use  this: 

IF  SP  THEN  CALL  SAYC'UHOH") 

This  way,  the  CALL  SAY  statement  will  execute 
as  long  as  SP  is  not  0. 

Mark  Chance 

Thank  you  for  the  clarification  on  this. 


Hidden  64  RAIV1 

I  have  been  dabbling  in  machine  language  a  bit, 
and  have  a  question.  I  would  like  to  know  if  it  is 
possible  to  load  machine  language  programs  into 
the  RAM  that  is  underneath  BASIC  ROM.  If  it  is, 
how  do  I  go  about  switching  out  BASIC  ROM  to 
use  the  ML  routines,  and  then  switching  BASIC 
back  in? 

Kenneth  Cox 

There  is  16K  (16,384  bytes)  of  hidden  RAM  in  the 

64.  8K  can  be  found  underneath  BASIC  ROM  at 
40960  to  49151,  hex  SAOOO-$BFFF,  8192  bytes,  and 
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8K  is  under  the  Kernal  at  57344  to  65535,  hex 
$EOOO-$FFFF. 

Switching  either  BASIC  or  Kernal  ROM  in  or 
out  to  expose  the  available  RAM  underneath  is  done 
via  memory  location  1.  Normally,  there's  a  55  in 
that  location.  Setting  bit  0  here  to  a  zero  loill  switch 
out  BASIC  and  expose  the  8K  block  of  RAM  under- 
neath. Setting  bit  1  of  memory  location  one  to  a  0 
will  sxoitch  out  both  BASIC  and  Kernal  ROM, 
exposing  a  total  of  16K  of  RAM. 

Use  this  BASIC  line  to  switch  out  BASIC  ROM: 

POKE  1,PEEK(1)AND254 
To  sivitch  out  both  BASIC  and  the  Kernal,  use: 

POKE  1,PEEK(1)AND253 

When  memory  location  1  is  set  at  its  normal  value 
of  55  (BASIC  and  Kernal  ROM  switched  in), 
POKEing  and  PEEKing  to  this  memory  follows  spe- 
cial rules.  When  you  PEEK  this  memory,  you  will 
get  the  values  of  the  BASIC  or  Kernal  ROM,  that  is, 
PEEK  (40960):  However,  POKEing  this  memory 
(POKE  40960,255)  ivill  automatically  POKE  the 
RAM  underneath. 

This  makes  placing  programs  into  the  hidden 
RAM  easy.  You  can  POKE  in  your  machine  lan- 
guage routines  via  a  BASIC  poker  program,  or 
simply  load  the  programs  from  tape  or  disk. 


File  Structure  On  Atari 

I  have  an  Atari  800  and  am  trying  to  write  a 
BASIC  program  to  access  records  in  a  file.  If  I 
open  a  file  with  a  9  to  append  the  file,  it  will  use 
the  entire  sector  to  store  the  data.  If  I  open  the 
file  with  a  12,  I  can  write  to  the  entire  sector,  but 
eventually  I  will  come  up  with  an  EOF  (End  Of 
File)  error.  Is  there  any  way  to  get  around  this 
problem?  Also,  are  there  any  good  books  (be- 
sides the  DOS  manual)  on  file  and  record  struc- 
ture for  the  Atari  disk? 

Charles  Bentivegna 
The  OPEN  command  has  four  parameters: 
OPEN  IOCB#,access,aux,"filename" 

IOCB#  is  a  number  from  1  to  7.  There  are  eight 
Input/Output  Control  Blocks  on  the  Atari.  Each 
lOCB  keeps  track  of  an  individual  file.  IOCS  #0  is 
reserved  for  use  by  the  screen  editor  (INPUT  and 
PRINT).  IOCS  #7  is  used  for  LPRINT,  CSAVE, 
SAVE,  LOAD,  and  CLOAD.  When  you  OPEN  a  file 
to  a  particular  lOCB,  you  use  the  same  number 
ivhen  accessing  the  file  with  PRINT#10CB;  data  or 
INPUT#10CB,  variable. 

The  second  parameter,  access,  is  either  4 
(OPEN  for  read),  8  (OPEN  for  write),  12  (OPEN  for 
read  and  write),  or  9  (OPEN  to  append).  The  aux 
byte  is  usually  just  0.  Access  numbers  4  and  8  are 
straightforward.  OPEN  for  read  lets  you  GET  or  IN- 
PUT from  that  file,  but  not  PRINT  or  PUT  to  it. 


SUMMER  GAMES. 
WHY  WATCH  THE  OLYMHCS  WHEN  YDU  CAN  BE  IN  THEM? 
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You're  an  Olympic  athlete  compet:ing 
in  eight  key  events  at  the  Summer  Games. 
How  well  can  you  score  in  track,  swim- 
ming, diving,  shooting,  gymnastics  and 
more?  So  realistic,  there's  even  an 
opening  ceremony  and  awards  presen- 
tation after  each  event. 

Unlike  other  "Olympics- Like"  games, 
Summer  Games  has  incredible  realism, 
superb  state-of-the-art  graphics  and 
sound  effects  (including  national  anthems 
from  18  countries),  and  it  is  a  true 
action -strategy  game.  In  each  event  you 


must  plan  and  execute  your  game 
strategy  in  order  to  maximize  your  score. 
It  is  not  just  a  matter  of  how  fast  you 
can  move  the  joystick. 

So  change  into  your  running  shoes, 
grab  vour  joystick  and  GO  FOR 
THE  GOLD! 

One  or  more  players;  joystick  controlled. 


h-f// 
Straagy  Games  for  ttie  Action-Game  Player 


Access  number  8  lets  you  create  a  file,  or  send  data 
out  to  a  device  like  a  printer  with  PUT  and  PRINT. 
With  a  disk  drive,  using  access  number  8  will  either 
create  a  new  file  or  replace  a  previous  one.  Access 
number  12  lets  you  read  and  write  to  au  cxi5tin<^ 
file. 

It's  a  little  strange.  You  can  keep  reading  the 
file  until  you  get  to  the  place  you  zuant  to  change, 
then  start  writing.  Once  you  start  writing,  however, 
you  can  no  longer  read,  since  you  have  started  to 
replace  a  portion  of  the  file.  With  access  number  9, 
you  can  only  write  to  the  end  of  a  file.  To  keep 
things  simple,  the  data  you  append  to  an  existing 
file  starts  on  a  new  sector,  rather  than  filling  up  the 
remainder  of  the  last  sector  used  by  the  file.  If  you 
add  short  items  to  files  xvith  access  number  9,  you 
can  zvaste  a  lot  of  disk  space  aver  the  long  run. 

The  only  way  you  can  both  read  and  write  in- 
dependently of  the  disk  is  to  use  random  access 
files.  With  NOTE,  you  can  store  the  relative  sector 
number  of  each  black  as  you  write  the  file  to  the 
disk.  You  can  then  refer  to  the  information  you 
stored  with  NOTE,  and  use  POINT  to  jump  directly 
to  any  sector  in  that  file.  You  can  write  a  single 
sector  (record)  independently  of  the  rest  of  the  file, 
and  iiistantly  skip  to  any  sector  zvithout  htiving  to 
sequentially  read  through  all  the  previous  data.  We 
cannot  go  into  detail  on  the  use  of  NOTE  and 
POINT  here,  but  the  DOS  2. OS  Manual  has  most 
of  the  information  you  need.  Another  source  for  de- 
tails on  the  working  of  DOS  is  Bill  Wilkinso-n's  In- 
side Atari  DOS,  available  from  COMPUTE!  Books. 


Machine  Language  Decimal  Mode 

Can  anyone  explain  the  SED  command?  I  used 
the  SYS  command  to  go  to  a  machine  language 
subroutine  with  the  intent  of  returning  to  BASIC. 
The  program  ran  fine  until  it  hit  the  last  state- 
ment— which  was  the  RTS — and  then  it  crashed 
and  displayed  an  OVERFLOW  ERROR  message. 
The  machine  language  subroutine  contained 
several  JSR  commands,  and  each  one  was  cov- 
ered with  the  RTS.  The  SED  command  was  used 
before  an  addition.  When  the  SED  was  deleted, 
everything  worked  fine.  What  did  (and  does) 
SED  do? 

E.  H.  Giles 

When  programming  in  machine  language,  SED 
stands  for  set  decimal  mode.  This  command  sets 
the  decimal  flag  on  the  status  register  and  tells  the 
6502  chip  that  all  addition  and  subtraction  is  to  be 
done  in  "decimal  mode"  (as  opposed  to  "binary"). 
In  this  mode,  the  carry  flag  is  set  zchen  addition 
exceeds  99. 

Setting  the  processor  to  the  decimal  mode  has 
its  drawbacks.  For  example,  all  additions  and 
subtractions  are  then  done  in  decimal,  but  the  INC 


(increment)  command  still  uses  the  binary  mode. 

Failing  to  clear  the  decimal  flag  (CLD)  before 
returning  to  BASIC  could  cause  catastrophic  results. 
This  is  the  reason  your  computer  is  freezing  up 
zuhen  you  exit  your  machine  language  subroutine. 
Try  using  the  CLD  (clear  decimal)  after  the  addition 
and  before  the  RTS. 

You  alzvays  need  a  CLC  before  an  addition,  but 
SED  is  useful  only  in  highly  specialized  applica- 
tions. See  Jim  Buiferfield's  column  "Machine  Lan- 
guage" elseivhere  in  this  issue  for  more  on  this 
topic. 


Atari  Disic  And  DOS 

I  own  an  Atari  800  and  a  Rana  1000  disk  drive. 
Recently  I  purchased  a  game  disk.  1  loaded  in 
DOS,  and  typed  A  for  a  disk  directory.  All  that 
was  printed  was  how  many  sectors  left.  Is  there 
any  way  to  print  the  names  of  the  files? 

T.  C.  Birgler 

At  the  lowest  level  of  disk  access,  there  are  no 
filenames  or  directories.  Data  is  stored  in  128-byte 
blocks  called  sectors.  A  single-density  Atari  disk  is 
divided  into  720  of  these  sectors.  DOS  is  a  control 
program  that  makes  this  level  of  the  disk  invisible 
to  you,  and  lets  you  create  named  files  zvhich  can  be 
accessed  through  a  directory. 

Most  game  disks  don't  need  DOS,  since  there  is 
no  need  for  reading  or  creating  named  files.  These 
boot  disks  load  directly  from  the  sectors  into  your 
computer  memory  loiihout  needing  to  load  DOS. 
(DOS  itself  starts  to  load  directly  from  a  boot  sec- 
tor.) Since  there  are  no  named  files,  and  no  directory 
on  most  game  disks,  there  is  nothing  for  DOS  to  list 
zvheit  it  looks  on  the  disk  zvhere  it  expects  to  find 
the  directory. 

All  this  is  similar  to  the  fact  that  you  can't  use 
BASIC  to  LIST  a  machine  language  program.  BASIC 
insulates  you  from  machine  language  just  as  DOS 
insulates  you  from  a  disk  system  that  inherently 
zoorks  only  zvith  sectors.  You  can  use  a  disassembler 
to  decode  and  list  machine  language.  Likeioise,  there 
are  programs  that  can  directly  read  and  display  sec- 
tor data.  But  just  as  you  can't  make  much  sense  of  a 
disassembly  without  any  knoioledge  of  machine  lan- 
guage, the  sector  data  can  also  be  bard  to  follozv 
zoithout  some  background  on  hozi^  the  disk  drive  and 
DOS  work. 


Coiorful  64  Sprites 

In  looking  over  the  various  informational  sources 
on  sprites,  I  have  come  across  a  subject  unan- 
swered by  all  of  them.  The  question  is  this:  How 
does  one  tell  the  computer  what  color  to  make  a 
certain  part  of  a  multicolored  sprite? 

Michael  O'Day 
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Background  color 
Multicolor  1 
Multicolor  2 
Sprite  color 


Multicolored  sprites  are  composed  of  four  different 
colors.  The  four  colors  are  1)  background  color, 
2)  multicolor  1,  3)  multicolor  2,  and  4)  sprite  color. 
The  locations  to  POKE  to  set  the  colors  are  as 
follows: 

POKE  53281 
POKE  53285 
POKE  S3286 
POKE  53287  through  53294 

The  eight  sprite  color  locations  correspond  to  the 
eight  different  sprites.  For  more  information  on 
programming  with  sprites,  see  the  64  Pro- 
grammer's Reference  Guide,  "Programming 
Graphics"  section. 


Atari  Peripheral  Adequacy 

I  have  an  Atari  400  computer  and  an  Atari  410 
cassette  recorder.  I'm  planning  to  buy  an  Atari 
800XL  computer,  and  1  was  wondering  if  the  cas- 
sette recorder  would  work  on  the  Atari  800XL 
computer. 

Isaac  Thornton  Scott 

As  long  as  your  recorder  is  still  working  fine  with 
your  400,  there  should  be  no  problem  using  it  loith 
an  800XL.  You  may  want  to  have  the  tape  heads 
cleaned  and  demagnetized,  even  realigned  to  give 
you  a  fresh  start  with  your  new  computer.  All 
400/800  peripherals  zve  know  of  zoill  work  just  fine 
with  the  600XL  and  800XL  computers. 

Atari  Graphics  2  Vs.  0 

I  have  an  Atari  1200XL.  I  have  trouble  seeing,  so 
I  prefer  to  use  the  largest  size  text  mode, 
GRAPHICS  2.  Is  it  possible  to  use  this  mode  in 
place  of  GRAPHICS  0  for  entering,  editing,  and 
running  programs? 

Wanda  Ellis 

First,  you  should  be  aware  that  GRAPHICS  2  inter- 
prets text  characters  differently  than  GRAPHICS  0. 
As  set  up,  only  uppercase  characters  are  permitted. 
Lowercase  characters,  inverse  characters,  and  in- 
verse lowercase  characters  all  appear  in  distinctly 
different  colors  than  uppercase  text,  but  still  appear 
as  uppercase.  The  screen  editor  is  set  up  to  work 
with  GRAPHICS  0,  which  has  40  columns  and  24 
lines.  GRAPHICS  2  has  10  columns  and  12  lines.  It 
is  possible  to  use  GRAPHICS  2  in  place  of  GRAPH- 
ICS 0,  in  a  limited  way.  Enter  this  line  to  see  the 
technique: 

GR.2-M6:POKE  87,0 
The  +16  disables  the  text  loindow,  and  POKE  87,0 
fools  the  Atari  into  thinking  it  is  in  GRAPHICS  0. 
In  this  mode  you  will  be  able  to  type  lines  and  even 
cursor  around  and  make  changes.  The  bottom  half  of 
the  screen  will  be  invisible,  so  scrolling  will  be 


tricky.  Also,  the  cursor  will  only  be  visible  when 
resting  on  a  character.  It  wouldn't  be  too  hard  to 
write  a  machine  language  editor  for  using  large  size 
characters  (perhaps  with  GRAPHICS  7). 


COMPUTE!  welcomes  questions,  comments,  or 

solutions  to  issues  raised  in  this  column.  Write  to: 
Readers'  Feedback,  COMPUTE!  Magazine,  P.O. 
Box  5406,  Greensboro,  NC  27403.  COMPUTE! 
reserves  the  right  to  edit  or  abridge  published 
letters,  © 


Maxell  Floppy  Disks 

The  Mini-Disks 
with  maximum 
quality. 

Dealer  inquiries  invited.  C.O.D's  accepted. 
Call  FREE  (800}  235-4137. 


PACIFIC  EXCHANGES 
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Sdn  Lull  Obiipo  CA  ■*.! Jill 
In  Cat  call  (SnO)  ^iflZoOHi  or 
8!l5ji4:M()37 


AC 


zOmmodore  Owners   - 

iSK  commander: 
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SINGLE  DISK  DRI 
;RAM  YOU'VE  BEEN  WAITING 


GET  THE  BEST! 


A  Fast,  Reliable  Commodore 
Disk  Backup  Program  Written 
In  Machine  Language 
i  Will  Easily  Backup  Even 
Many  "Heavily  Protected" 
Diskii 

Copies  Anv  File  Type 
Fooljrosjf  Disk  Verification 
Technique  Assures  Pfrfecl 
Copies 


Automatic  Disk  Initialization 
Also  includes  Powerful  On- 
Scrcen  Editing  nf  Track  & 
Sector  Display  In  Hex  or 
ACSIl  With  Read'Write  and 
Scan  Feature 

Display.Tiint  Complete  Disk 
Directon-  Contents 
Complete  Documentation 
Manual 


Special  Introductory  Price: 
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Computers  And  Society 


David  D.  Thornburg,  Associate  Editor 


Computer-Assisted 
Explorations  With  Music 


I  was  having  lunch  with  a  friend  one  day  when 
the  conversation  drifted  to  the  subject  of  music, 
specifically  the  different  aspects  of  music  educa- 
tion. It  was  suggested  that  we  spend  a  lot  of  time 
teaching  skills  in  the  reading  and  performance  of 
musical  compositions  (especially  with  young- 
sters), but  we  spend  little  or  no  time  teaching 
children  (or  adults,  for  that  matter)  how  to  create 
their  own  musical  compositions. 

As  I  thought  about  the  similarities  between 
this  traditional  approach  to  music  and  traditional 
approaches  to,  for  example,  math  education,  I 
was  struck  by  an  interesting  idea.  One  of  Logo's 
appropriate  claims  to  fame  is  that  it  helps  chil- 
dren to  think  mathematically — to  explore 
mathematics  as  an  experimental  science,  and  to 
make  math  discoveries  without  outside  "help" 
(or  intervention).  Professor  Papert  wanted  to  pro- 
vide an  environment  in  which  children  were  free 
to  explore  mathematics  on  their  own  terms — to 
secure  their  own  "ownership"  of  mathematical 
ideas. 

While  these  are  appropriate  goals  for 
mathematics  education,  they  are  no  less  appro- 


David  Thornburg  is  an  author  and  speaker  leho  has  been 
heavily  inimlved  with  the  personal  computer  field  since 
1978.  His  main  interest  is  in  making  computers  respon- 
sive to  people's  needs.  He  is  the  inventor  of  the  KoalaPad 
graphics  tablet  and  is  the  author  of  nine  books  about 
programming.  David  Thornburg's  recent  books  include 
Computer  Art  and  Animation;  A  User's  Guide  to  Atari 
Logo,  The  KoalaPad  Book  (in  which  Musicland  is  also 
described),  and  Exploring  Logo  Without  a  Computer  (a 
book  for  teachers).  AH  three  of  these  books  are  published 
by  Addison-Wesle}/.  His  Macintosh  book  (lOl  Ways  to 
Use  a  Macintosh)  iviil  appear  soon  from  Random  House. 
He  has  been  called  "an  enthusiastic  advocate  for  a 
humanistic  computer  revolution,"  and  his  editorial  opin- 
ions have  appeared  in  COMPUTE!  since  its  inception. 
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priate  when  applied  to  other  fields  of  endeavor, 
including  music.  In  fact,  I  would  guess  that  the 
general  public  might  find  music  discovery  to  be 
every  bit  as  exciting  as  math  discovery. 

It  turns  out  that  the  "discovery-based- 
learning"  approach  to  music  is  not  a  new  idea. 
Carl  Orff  and  his  colleagues  created  an  excep- 
tional program  in  this  area  that  is  still  used  in 
some  schools.  But  just  as  Logo  lets  an  individual 
make  discoveries  on  his  or  her  own,  1  think  that 
the  music  discovery  environment  should  operate 
in  the  same  way.  The  computer  is  a  perfect  tool 
for  this,  and  the  idea  of  a  musical  equivalent  to 
Logo  is  quite  exciting, 

A  music  program  philosphically  attuned  to 
the  Logo  experience  is  already  on  the  market, 
and  it  will  soon  be  joined  by  add-on  programs 
that  preserve  the  spirit  of  discovery  as  the  user 
explores  musical  ideas  on  his  or  her  own.  The 
product  to  which  I  am  referring  is  Musicland 
from  Syntauri. 

Musicland  is  presently  available  for  the  Apple 
II  family  and  requires  the  MusicSystem  cards 
from  Mountain  Hardware.  The  user  can  interact 
with  the  system  through  the  joystick,  or  KoalaPad. 
To  give  a  feel  for  the  areas  that  can  be  explored 
with  this  product,  I  will  describe  it  in  some  de- 
tail. Musicland  is  divided  into  four  types  of  activ- 
ities: Music  Doodles,  Timbre  Painting,  Music 
Blocks,  and  Sound  Factory.  While  these  activities 
have  cute  names,  and  can  be  used  by  small  chil- 
dren, Musicland  is  no  more  a  kid's  product  than 
is  Logo.  Professional  musicians  have  enjoyed  it 
every  bit  as  much  as  children. 

Music  Doodles  lets  you  create  motifs  by 
"drawing  them"  on  a  grand  staff  appearing  on 
the  screen.  For  example,  if  you  wanted  to  hear 
some  music  that  looks  like  the  letter  A,  all  you 
would  have  to  do  is  draw  an  A  on  the  screen 
(see  Figure  1). 
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If  getting  I 
that  really 


Introducing  a  new  generation 
of  computer  games.  Familj  Learning 
Games  fitMn  Spinnaker. 

Ever  notice  how  a  little  fun  with  the 
family  can  be  a  little  hard  to  arrange? 

Well,  now  there's  a  solution -Spinnaker's 
Family  Learning  Games.  A  whole  family  of 
great  games  that  make  getting  the  family 
together  seem  like  child's  play  And  make 
"family  fun"  really  seem  like  fun  again, 
What's  more,  they'll  even  help  your  kids 
develop  some  very  important  skills. 


It's  New! 
AEGEAN  voyage:" 

Where  do  monsters  lurk?  And 
which  islands  have  treasures 
to  behold?  Heed  the  oracle's 
words,  for  only  his  clues  can 
lead  you  to  riches  and  a  safe 
return.  Ages  3  -  Adult. 


the  whole  fiunily  together 
enge,  mayheyou  need  games 
chSnenge  the  whole  Midly 


What  makes  our  Family  Learning  Games 
so  special?  Well,  for  one  thing  they're 
designed  to  challenge  and  excite  everyone 
in  the  family,  from  grade  schoolers  to 
grownups.  Their  unique  combination  of 
chance  and  strategy  makes  them  perfect 
for  young  players. yet  challenging  enough 
that  everyone  will  want  to  play  them  again 
and  again. 

But  what  makes  our  Family  Learning 
Games  even  more  unique  is  how  they  help 
kids  learn -about  problem  solving,  strategiz- 
ing.  spelling. even  Greek  mythology.  That's 


ADVENTURE 
CREATOR 

^*- 


adventure 
creator:' 

Design  a  challenging  adventure 
game  that  everyone  can  play  - 
or  let  the  computer  design  one 
for  you.  It's  exciting,  creative  - 
and  utterly  addictive! 
Ages  1Z- Adult. 


quite  a  bit  more  than  they'd  learn  from  a 
typical  board  game  (if  you  could  even  get 
them  to  play  a  typical  board  game). 

So  next  time  you  want  to  get  every- 
body together,  don't  get  d  iscou  raged  -  get 
Spinnaker's  Family  Learning  Games. 

You'll  find  the  biggest  challenge  in  family 
fun  won't  be  on  the  refrigerator.  It'll  be 
on  the  computer. 

Spinnaker  games  are  available  for  ColecoVision*  and 
for  Coleco  Adam,™  Commodore  54'"  and  Atari*  home 
computers. 


UP  FOR  grabs:" 

It's  a  wildly  exciting  crossword 
game  where  everyone  has  to 
think  fast-  More  words  will  help 
you  win  -  but  don't  get  caught 
with  leftover  lettersl 
Ages  6 -Adult. 


We  make  learning  fun. 


Cartridges  for:  ColecoVision.Coleco  Adam,  Atari 
and  Commodore  64. 


DXecoVision  and  Atan  are  registsred  trademarks  of  Coleto  Inoustries  and  Atan.  Inc.  respectively,  Coleco  iWam  and  Commodore  64  are  trademarks  of  Coteo  Industnes  and  Commodore  Beoronics  Ltd.  respectively.  ®1384. 
Spinnaker  Software  Corp  All  rights  reserved. 
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Figure  4: 

Creating  Melodies  With  Music  Blocks 
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When  this  drawing  is  finished,  Musicland 
translates  the  picture  into  notes.  Note  duration  is 
represented  by  length,  and  note  value  is  repre- 
sented by  vertical  position.  Sharps  and  flats  are 
indicated  by  partial  positioning  on  the  staff.  The 
result  resembles  a  player  piano  roll  more  than  it 
does  a  traditional  score.  (See  Figure  2.) 

Once  a  motif  has  been  drawn,  you  are  free 
to  experiment  with  it  and  to  transform  it  anyway 
you  want.  For  example,  a  motif  can  be  stretched 
or  compressed  in  time  (including  making  it  play 
backwards),  and  it  can  be  stretched  or  com- 
pressed vertically  (including  turning  it  upside 
down).  A  motif  can  be  transposed  to  any  position 
on  the  staff,  and  as  a  result,  one  musical  idea  can 
be  transformed  into  the  structures  used  in  music 
from  Baroque  fugues  to  the  12-tone-scale  music 
of  Schonberg.  For  example,  I  have  transposed  and 
inverted  our  motif  before  placing  it  next  to  the 
original  in  Figure  3. 

Timbre  Painting  lets  you  add  color  to  your 
music  by  painting  over  notes  with  colors  that 
pertain  to  various  instruments  that  have  been 
created  in  the  Sound  Factory,  Once  you  have  cre- 
ated a  motif  using  Music  Doodles,  you  can  create 
entire  melodies  by  bringing  several  doodles  to 
Music  Blocks,  This  tool  lets  you  assemble  a  com- 
plete piece  by  building  the  composition  from  an 
assembly  of  any  of  five  music  blocks  you  have 
created  with  Music  Doodles.  By  pointing  to  a 
block,  you  can  automatically  place  it  at  the  next 
available  location  in  the  score.  (See  Figure  4.) 
Once  the  blocks  are  in  place,  they  can  be 
switched  around  or  deleted  until  the  final  com- 
position meets  your  goals. 

The  Sound  Factory  gives  you  the  complete 
freedom  to  create  your  own  musical  sounds  by 
selecting  harmonic  content  and  a  time  envelope. 
Because  of  the  ease  with  which  various  sounds 
can  be  made,  you  can  experiment  with  many 
types  of  sounds.  Musicland  even  lets  you  work 
with  the  sound  waveform  instead  of  the  har- 
monic content,  if  you  wish. 

The  documentation  includes  project  cards 
and  shows  that  Musiclaud  can  be  used  as  a  tool 
for  experimenting  with  musical  ideas,  and  as  a 
tool  for  exploring  the  physics  and  aesthetics  of 
sound  as  well. 

Musicland  was  designed  by  Dr.  Martin  Lamb 
and  his  colleagues  at  the  University  of  Toronto.  I 
expect  further  product  developments  in  this  area 
hi  the  near  future. 

As  we  see  more  discovery-based-learning 
emphasis  in  our  educational  system,  we  will  con- 
tinue to  see  the  computer  being  used  in  ways 
that  show  the  unique  strengths  of  this  medium. 
The  computer  is  not  just  a  teaching  tool — it  is  a 
tool  to  help  us  learn.  The  distinction  is  important. 
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If  you  thought  Egypt  wa5  the  home  of  the  Pyramids,  wait  until  you  get 
home  with  Lost  Tomb. 

Far  more  than  mere  chambers  of  wonder,  these  chambers  are  filled  with 
horror.  Poisonous  scorpions,  screeching  bats  and  terrifying  mummies.  And  in  the 
timele^  tradition  of  the  most  daring  expeditions,  you'll  pack  a  pistol,  plenty  of  ammo 
and  a  whip  to  crack  the  curse  of  the  pyramids.  Earthquakes  rumble  along 
cavernous  passageways.  Walls  crumble  and  crackle  with  gunfire.  Your  mission  is 
to  make  it  through  all  91  chambers  and  13  levels.  And  then  make  off  with 
..     the  loot.  The  only  things  we  can't  give  you  are  the  things  you'll  need  most. 
Cool  reflexes,  uncanny  instincts  and  the  courage  to  use  them. 
Lost  Tomb™  Can  you  unravel  the  mystery? 

Available  now  for  Atari,  Commodore  64,  j!^ple 
II  series  and  IBM  PC  and  PC/JR.  Suggested  retail 
price  $29.95.  Check  with  your  local  home  computer 
software  retailer  for  Lost  Tomb™  and  to  learn  of 
other  great  programs  fi-om  Datasoft*  send  for  a 
fi'ee  consumer  catalog. 


Daiasoli  is  z  rejabiered  &!Kkri™rk  of  [imsot  he. 
Lost  Ibinb  is  A  trademark  of  Sttm*  Elfctrmilcs, 
©l984IhmsoftJi3C. 


Datjisoft' 


19808  Nordhoff  Place,  Chatswonh,  CA  91311    Phone  (Slit)  701-5161 
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Printing  And  Asicing 


In  most  versions  of  BASIC  there  are  usually 
many  ways  to  accomplish  a  task.  For  example,  to 
clear  the  screen  Atari  users  have  the  option  of 
printing  either  a  control  character  or  CHR$(125). 
On  any  Commodore  computer,  the  user  has  a 
similar  option,  but  the  CHR$  would  have  to  be 
(147).  Beginners  usually  decide  that  they  prefer 
PRINTing  the  control  codes  between  quotes.  The 
reason  for  this  choice  is  that  the  CHR$  command 
and  the  associated  ASC  command  are  often 
misunderstood. 

The  CHR$  function  is  really  a  very  easy 
function  to  use  and  to  understand.  Let's  say  that 
you  wanted  to  print  the  letter  A  on  your  com- 
puter's screen.  You  could  simply  type  PRINT 
"A"  and  hit  the  RETURN  key.  However,  you 
could  also  PRINT  CHR$(65).  The  result  would  be 
the  same.  Although  it  is  always  nice  to  know 
that  you  have  different  ways  to  do  things,  you 
probably  are  better  off  just  printing  the  A  on  the 
screen. 

The  real  value  of  the  CHR$  command  is  that 
it  allows  you  to  print  special  control  codes  such 
as  cursor  movement  and  screen  clearing  com- 
mands. It  is  far  more  confusing,  for  example,  to 
have  embedded  commands  (such  as  the  reverse- 
video  heart  in  a  Commodore  listing)  than  to  have 
the  same  commands  as  CHR$.  There  are  usually 
CHR$  codes  that  allow  you  to  change  the  color 
of  the  cursor  and  even  ones  that  let  you  ring  the 
internal  bell  of  the  computer.  On  the  Apple  and 
Adam  home  computers  you  can  easily  have  the 
bell  ring  by  just  PRINTing  a  few  CHR$(7)'s. 

ASC  The  Computer 

The  reverse  of  the  CHR$  command  is  ASC.  ASC 
will  let  you  find  out  what  decimal  number  repre- 
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sents  a  given  character.  If,  for  example,  you  want 
to  know  the  number  that  you  would  have  to  in- 
clude with  a  CHR$  to  PRINT  a  comma  on  the 
screen,  you  could  just  ask  the  computer  via  ASC. 
The  correct  syntax  for  the  command  is  PRINT 
ASC(",").  You  would  get  44  as  the  answer.  If 
you  then  PRINTed  CHR$(44),  the  computer 
would  print  out  a  comma.  An  easy  way  to 
remember  what  each  function  does  is  to  remem- 
ber that  ASC  is  used  for  asking  the  computer  for 
the  correct  number  and  the  other  is  for  giving  the 
computer  the  right  number. 

Secret  Coding 

Program  1  demonstrates  the  characters  immedi- 
ately available  on  your  home  computer.  When 
you  run  the  program,  keep  in  mind  that  it  will 
print  out  all  of  the  available  characters  as  well  as 
control  codes.  The  control  codes  will  affect  the 
appearance  of  the  output  to  the  screen.  For 
example,  once  the  loop  reaches  125  in  the  Atari, 
the  screen  will  be  cleared. 

One  reason  you  might  want  to  use  CHR$ 
within  your  programs  is  that  you  might  want  to 
conceal  words  when  someone  uses  one  of  your 
programs,  In  a  game  of  Hangman  you  might  want 
all  the  words  placed  in  DATA  statements  in  their 
ASCII  numerical  format.  This  will  prevent  the 
user  from  cheating.  It  is  quite  confusing  for  a 
snooping  user  to  come  across  a  long  list  of  seem- 
ingly random  and  meaningless  numbers.  Only 
you  will  know! 

Program  2  is  an  example  of  how  you  might 
encode  a  sentence  so  that  only  you  know  what  it 
means.  If  you  take  a  close  look  at  lines  50-70, 
you'll  notice  that  it  takes  a  lot  more  space  to 
store  a  sentence  in  this  method  than  it  would  to 


THERE'S  A  COMPUTER  BORN  EVERV  MINUTE 

GIVE  IT  A  HOME. 


For  $o9<95  with  the  CS- 1632  you  can  house  your  computer, 

penpherais,  and  accessories  without  spending  a  fortune. 


For  those  with  a  large  computer  famUv  the  CS-2748  gives  you  ali  the  room  you 
need  for  your  computer,  monitor,  printer,  peripherals,  software,  etc.  at  a  price 
that's  hard  to  believe-.  S299.9S. 


The  CS- 1632  computer  storage 
cabinets  compact  yet  functional 
design  fits  almost  anywhere 
while  housing  your  computer 
monitor,  joysticks,  software, 
books  and  peripherals  aD  for 
only  $89.95. 

The  slide  out  shelf  puts  the 
computer  a!  the  right  height  and 
position  for  easy  comfortabie 
operation. 

The  fold  up  locking  door  keeps 
unwanted  fingers  oiTthe  key 
board  when  no!  in  use. 
To  store  joysticks  just  lum  them 
upside  down  and  slide  them  into 
the  inverted  storage  rack. 
Twist  tabs  on  the  back  of  center 
panel  allow  for  neat  concealed 
grouping  of  wires,  while  power 
packs  rest  hidden  behind  center 
panel  on  shelf 
The  slide  out  software  tray 
has  room  for  14  cartridges  or 
cassettes  and  up  to  30  diskettes. 
Most  brands  of  sofhware  will  Gt 
between  the  adjustable  parti- 
lions  with  a  convenient  hook  for 
the  spare  key  at  rear. 
Stand  fits  Atari  400  &  800, 
Commodore  64  &VIC  20, 
Ti  99/4A  and  TBS-SO. 
Cabinet  dimensions  overall  36" 
high  X  33-7/8"  wide  x  16"  deep. 


To  order  CS- 1632  send  S89.95  to:      To  order  CS-2748  send  $299.95  lo: 


HVTffi 


systems: 


P.O.  Box  446 

West  Lyiut.  OH  97068 

For  Fast  Phone  Orders  CaU  Toll  Free  1.800-S47-3100 
Inside  Oregon  CaU  (S03)  63S-6667 


Name, 


Address  . 


Gty 

Quantity. 


„  State  , 


.C51632 


Quantity. 


„Zip  . 


.  CS-2748 


□  Golden  Oak  Finish  Q  Natural  weilnut  finish 

Q  My  personal  check,  cashiers  check  or  money  order  is  enclosed. 


Q  Bill  my  VISA*. 

Q  Bill  my  MasterCard  # 


_Exp.  Date 
.Exp.  Date 
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Q  Please  include  freight  charge  on  my  VISA  or  MasterCard. 

Card  Holders  Signature  ^ 

Immijdialc  shipnjem  if  ui  stock  If  not.  iiUow  3-4  weeks  for  deliverv-  If  personal  cfwrck  is  sent  ailow  additional 
2  weeks.  CS- 1632  ships  UPS  ficighl  collect  from  Oregon  CS-2746  ships  by  truck  freight  coikct  from  Orefion 
Pnces  subject  lo  change  Shipment  s-ubjea  to  availatHtav 

Both  the  CS- 1632  and  CS-2748  ship  unasscmfalcdin  Two  canons  Assembly  requites  only  a scjewdnvci. 

hanvner.  and  a  few  rrtirwtes  of  your  tane 
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The  two  slide-out  shelves  put 
the  keyboard  at  the  proper  oper- 
ating height  while  allowing  easy 
access  to  the  disk  drives. 
The  bronze  tempered  glass  door 
protecting  the  keyboard  and 
disk  drives  simply  lifts  up  and 
slides  back  out  of  the  way  during 
use. 

Twist  labs  on  the  back  of  the 
center  panel  allow  for  neat  con- 
cealed grouping  of  wires  while 
a  convenient  slorage  shelf  for 
books  or  other  items  lies  beiow. 
The  printer  sits  behind  a  fold 
down  door  that  provides  a  work 
surface  for  papers  or  books 
while  using  the  keyboard.  The 
lift  up  top  allows  easy  access 
to  the  top  and  rear  of  the  printer. 
A  s!ol  in  the  printer  shelf  allows 
for  center  as  well  as  rear 
feed  primers. 
Behind  the  lower  door  are 
a  lop  shelf  for  paper,  feeding  the 
printer,  and  a  bottom  sheif  to 
receive  printer  copy  as  well 
as  additional  storage. 
Stand  fits  same  computers 
as  the  CS- 1632  as  well  as  the 
Apple  1  and  II.  IBM-PC.  Franklin 
and  many  others. 
The  cabinet  dimensions  overall: 
39-1/2"  high  X  49"  wide 
X  27"  deep. 

Keyboard  shelf  20"  deep  x  26" 
wide.  Disk  drive  shelf  15-34" 
deep  X  26"  wide.  Top  shelf  for 
monitor  17"  deep  x  27"  wide. 
Printer  shelf  22°  deep  X  19"  wide. 


Table  1:                        ^^^^H 

Atari 

Special  CHR$  Codes                 ^^ 

CHR$ 

Atari  Effect                     '^H 

27 

ESC                                        '"Wk 

28 

Cursor  Up                        ^nffi 

29 

Cursor  Down                 -^|jg|j|p 

30 

Cursor  Left                    ^Hhqb 

31 

Cursor  Right                   WBBB 

125 

Clear  Screen                        "^ 

155 

RETURN                             .i.hH 

253 

.^^ 

Buzzer                             S^H 

■:iH*isr:f«Ss!£ 


simply  type  in  the  letters.  Although  it  does  take 
up  extra  memory,  you  will  soon  appreciate  the 
potential  that  CHR$  codes  have  for  creating  fun 
and  educational  quiz  programs. 

As  you  can  see,  the  program  is  straight- 
forward. Line  10  starts  everything  by  initializing 
a  FOR-NEXT  loop.  The  number  29  corresponds 
to  the  number  of  characters,  including  spaces  and 
punctuation,  that  the  sentence  has.  There  are  ex- 
actly 29  numbers  in  the  DATA  statements.  The 
READ  A  command  in  line  20  gets  one  number  in 
from  the  DATA  statements  for  each  pass  through 
the  FOR-NEXT  loop.  Line  30  is  used  for  printing 
the  characters  on  your  screen.  The  CHR$  function 


SURGES! 
SPIKES! 

flWEHI! 

HPSJ 

SAGS! 

BLACKOUTS! 

BROWHOUTS! 


,<^f  Power 
'       '  Problems? 

AEGIS®  .  ,  .  Power  Conditioning  Equipment  ...  THE  SOLUTION 
Protects  From  Damaging  Voltage  Surges.  Lost  Data,  &  Costly  Down  Time 

SPIKE-SPIKER'^ 

Transient  Voltage  Suppressors  &  Noise  Filters 
Et«v9n  Models  —  All  Models  Rated  120V,  ISA 
Deluxe  Power  Console- 2 -slage  transient  absorber,  dual 
5-stage  filter;  common  4  fliHerential  mode  proteclion. 

nano  seconds  response:  clamping  at  150V.  8  individually  swilched  sockels. 

1use_fl.  main  swilcn.  7'  cord  and  status  lite.  S89.95. 

Quad  Power  Console— 6-stage  transient  absorber  dual 
5-slage  filler;  common  &  differentia!  mode  proteclion.  pico 
second  response,  clamping  at  131V;  four  outlets;  fused, 
master  switch;  7"  cord  and  status  light.  S75.95 

•  Mini  W-DirectAC  Plug-In:  2-slage  transient  absorber;  dual 

3-stage  filter,  common  &  diflerenliai  mode  protection;  nano 
second  response;  clamping  at  150V;  two  outlets  and  staius 
lite.  $44.95 

LfNE-SAVERT" 

:=:^        Standby  Uninterruptible  Power  System 

'i    i   ;       «r»*|  —clean  Reliable  Power  System— 

V  rl  "*'".  Model  LS-240-240  walls-VAcapaclly.  increased  back- 
\t^'  -  '  '  up  time  It  rain  full  load,  27  min  'h  load.  43  min 
Vi  load;  4-AC  outlets.  3-staged  transient  protection,  dual  4-staged  RFl/EMi  titter. 
sealed  rectiargeable  Inlernal  battery,  master  control  switch;  tesi  swilcfi;  exter- 
nal fuses;  detachable  6'  cord;  external  DC  connectors  tor  mobil  use  and  ex- 
tended hold-up  time;  many  more  exclusive  features  S485.00 


Call  or  wnle  lor  tree  litersture. 
Dealer  inquires  inviten 


5584Rycn,  Rd..  DepiCP    ■■ 
Bethlehem.  PA  18107      H 


IHSTAHT  ORDER  LINE 

800-524-0400    TWX  501-661-2101 

IN  PENNA.  zib-eaz-o/oo 

PA  Res  aaa  6'/,  sales  lax.  for  COD  aOC  S3  00  -r 
stiipping  &  nanoling  All  pre-paid  SPIKE-SPIKER 
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Table  2: 

Commodore  Special  CHR$  Code$ 


CHR$ 

Commodore  Effect 

13 

RETURN 

14 

Switch  to  Lowercase 

17 

Cursor  Down 

19 

Cursor  Home 

29 

Cursor  Right 

142 

Switch  to  Uppercase 

145 

Cursor  Up 

147 

Clear  Screen 

157 

Cursor  Left 

is  used  here  for  converting  the  numbers  to  their 
appropriate  letter  representation.  A  semicolon  is 
placed  after  the  command  PRINT  CHR$(A)  so 
that  the  characters  are  printed  next  to  each  other 
instead  of  down  the  left-hand  side  of  the  screen. 
The  semicolon  eliminates  the  carriage  return  that 
is  executed  at  the  end  of  each  PRINT  operation. 

Line  35  is  just  a  delay  loop,  and  line  40 
sends  the  computer  back  to  line  10  to  go  through 
the  next  number  in  the  loop.  If  you  wanted  to 
use  this  routine  in  one  of  your  programs,  you 
could  easily  make  it  a  subroutine.  Just  add  a  line 
45  with  the  instruction  RETURN  and  you  can 
then  access  the  routine  by  GOSUBing  to  it  from 
your  main  program.  To  modify  the  message 
length,  just  increase  or  decrease  the  29  in  line  10. 
The  message  can  be  changed  by  just  typing  the 
right  numbers  into  the  DATA  statements.  To  find 
out  which  numbers  to  place  in  the  DATA  state- 
ments just  type  PRINT  ASC("X"),  where  the  X 
stands  for  the  letter  that  you  need  to  know 
about.  If  you  typed  PRINT  ASC("X"),  for  ex- 
ample, you  would  get  88  as  the  answer. 

There  are  usually  tables  of  the  letters  and 
control  codes  that  each  computer  can  print  in 
each  computer's  user's  manual.  You  can  use 
these  tables  to  help  you  find  the  letters  and  sym- 
bols you  need  for  your  program.  The  following 
tables  should  get  you  started  on  the  Atari  and 
Commodore  computers. 

Program  1 :  chr$  Display 

10  FOR  X=0  TO  255 

2t)  PRINT  CHR5(X); 

30  FOR  DE=i  TO  i00:NEXT  DE 

40  NEXT  X 

Program  2:  Secret  Message 

10  FOR  X=l  TO  29: REM  BEGIN  LOOP 

20  READ  A:  REM  FETCH  FIRST  IslUMBER 

30  PRINT  CHR?(A);:REM  PRINT  CORRESPONDING 

CHARACTER 
3  5  FOR  D=l  TO  50:1^EXT  D :  REM  DELAY  LOOP 
40  NEXT  X 

50  DATA  84,72,69,32,67,72,82,36,32 
60  DATA  70,85,78,67,84,73,79,78,32 
70  DATA  67,65,78,32,66,69,32,70,85,78,33© 
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if  you've  been  having  a  hard  time 
teaching  your  newly-adopted  computer 
there's  more  to  life  than  fun  and  games, 
you're  not  alone. 

Now,  you  can  introduce  your  Commodore  64™  to  the  Work  Force:  affordable,  easy-to- 
use  software  and  hardware  that  will  unleash  the  power  you  always  expected  from  your 
Commodore  64™,  but  thought  you  might  never  see. 


is  simply  the  best  word  processing  program  of  its 
kind — loaded  with  advanced  features,  yet  so  easy  to 
use  even  a  novice  can  get  professional  results.  With 
SpellPack™,  it  even  corrects  your  speillngl  Once  you've 
tried  It,  you'll  never  use  a  typewriter  again. 

The  Consultant' 

(formerly  Delphi's  Oracle) 
is  like  a  computerized  filing  cabinet  with  a 
brain.  Organize  fifes  for  recipes,  albums, 
or  the  membership  of  your  service  club. 
Then  search,  sort,  arrange  and 
analyze  your  information  with  speed 
and  flexibility  that's  simply  astounding. 


teaches  your  64  to  spell.  It  checks  an  entire 
document  in  2  to  4  minutes  against  a 
dictionary  of  over  20,000  words.  And  you 
can  add  up  to  5,000  of  your  own 
specialized  terms.  Type  letter  perfect  every 
time! 


is  a  magic  box  that  lets  you  transform  your  humble 

home  computer  into  a  powerful  business  machine.  !t 

gives  you  the  added  power  of  BASIC  4.0,  and  lets 

you  add  IEEE  disk  drives,  hard  disk,  virtually  any 

parallel  printer,  and  other  peripherals  without  extra 

interfaces.  Completely  software  invisible. 


gives  you  crystal  clear  80  column 

display.  Using  the  highest  quality 

hardware,  we've  eliminated  the  problems 

of  snow,  fuzziness  and  interference. 

Basic  4.0  commands  greatly  simplify 

disk  drive  access.  Switches  easily  from 

40  to  80  column  display. 

Discover  the  true  power  of  your 

Commodore  64'".  Ask  your  dealer  about 

the  Commodore  64'"  Work  Force,  from 

Batteries  Included — the  company  that 

doesn't  leave  anything  out  when  it  comes 

to  making  things  simple  for  you. 


INCLUDED 


'Excellence  in  Software " 

These  products  have  been  developed  specifically  for  Commodore  computers  by  Batteries  Included  and  are  totally  compatible  with  each  other.  For  a  full  color  brochure  write  to: 

186  Queen  Street  West,  Toronto,  Canada  M5V 1Z1  (416)  596-1405/3303  Harbor  Blvd.,  Costa  Mesa,  CA.  92626  (714)  979-0920 

64  AND  COMMODORE  64  ARE  REGISTERED  TRADE  MARKS  OF  COMMODORe  BUSINESS  MACHINES 


Software  Power! 


The  Summer  Consumer 
Electronics  Show 


Selby  Bateman,  Features  Editor 


Sovie  hardware  manufacturers  have  bailed  out,  but 
software  is  soaring.  The  introduction  of  several  new 
personal  computers  at  the  Summer  Consumer 
Electronics  Show,  held  in  Chicago  in  June,  was  not 
the  only  story.  Just  as  important  ivas  the 
overwhelming  amount  of  new  software  in  almost 
every  conceivable  field  of  interest. 


The  gold-rush  giddiness  that  brought  17  new 
computers  to  last  year's  Chicago's  CES  extrava- 
ganza is  gone.  This  was  the  year  of  software.  It's 
become  a  potential  boom  marl<et  in  the  highly 
competitive  personal  computer  field. 

Remember  these  names?  Atari  1400  XL, 
Mattel  Aquarius  and  Aquarius  II,  Spectravideo 
SV-318  and  SV-328,  Texas  Instruments  TI- 
99/4A,  Timex/Sinclair  1000.  Several  of  these 
companies  have  backed  away  from  manufac- 
turing personal  computers  over  the  past  year. 
Some  have  withdrawn  announced  machines.  It 
makes  a  long  and  revealing  list. 

Nonetheless,  CES  did  show  that  there's 
plenty  of  life,  and  more  than  enough  interest,  in 
the  growth  potential  of  the  personal  computer 
field. 

Miles  Of  Aisles 

More  than  90,000  exhibitors,  journalists,  dealers, 
and  celebrities  strolled  along  the  miles  of  exhibits 
at  CES — the  world's  biggest  trade  show — looking 
at  virtually  every  kind  of  consumer  electronic 
product  in  the  world.  And  a  good  percentage  of 
those  attending  spent  much  of  their  time  just  try- 
ing to  get  around  in  one  building,  McCormick 
West — three  warehouse  floors  full  of  nothing  but 
computer  hardware  and  software. 

More  than  170,000  square  feet  of  space  was 
allotted  in  McCormick  West  at  this  year's  show, 
a  25  percent  jump  over  last  year's  floor  area. 
And  the  sheer  quantity  of  new  software  being  in- 
troduced was  enough  to  make  even  the  most 
dedicated  computerphile's  eyes  glaze  over. 
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The  good  news  is  obvious;  more  software  for 
virtually  every  home  computer,  especially  Com- 
modore, Atari,  Apple,  and  IBM.  And  the  bad 
news  is  equally  plain:  How  can  you  learn  about 
it  all,  let  alone  pick  out  the  quality  products? 

Where  Were  IBM  And  Apple? 

The  software  boom  doesn't  mean  that  computer 
hardware  was  unimportant  at  CES.  The  home 
computer  market  continues  to  evolve,  and  in 
some  quite  interesting  ways. 

For  example,  IBM  and  Apple,  two  of  the  big- 
gest contenders  in  the  personal  computer  field, 
didn't  attend  CES.  Their  dealer  networks  and 
their  market  strategies  are  not  based  around  this 
trade  show,  as  are  some  others. 

Commodore,  Coleco,  and  Atari,  three  other 
major  contenders,  did  attend,  however.  And 
what  they  introduced,  announced,  or  revealed 
says  a  lot  about  where  home  computers  are 
heading  this  year.  (See  "Atari's  CES  Line-Up"  in 
this  issue.) 

Possibly  The  Most  Advanced 
Personal  Computer  Ever 

Some  of  the  most  fascinating  computers  at  this 
CES  were  under  wraps,  available  for  inspection 
only  to  a  privileged  few.  For  example,  the  new 
high-end  Atari  computer  was  shown  only  to  soft- 
ware developers,  and  most  of  the  Japanese  MSX- 
standard  home  computers  due  in  the  U.S.  next 
year  were  seen  only  at  a  private  party  thrown  by 
Microsoft.  Likewise,  what  might  be  the  most  ad- 
vanced personal  computer  ever  designed  was 
shown  behind  closed  doors  inside  the  Amiga 
exhibit. 

The  computer  is  code-named  the  Amiga  Lor- 
raine, and  right  now  it  exists  only  in  prototype 
form.  But  if  it  ever  reaches  production,  and  at  a 
price  even  close  to  what  is  promised,  it  could  sig- 
nal the  beginning  of  a  completely  new  genera- 
tion of  personal  computers. 

The  Lorraine's  graphics  are  a  whole  step 


Gel  the  jump  on  ihe  weather- 
man by  accurately  forecasting 
the  local  weather  yourself! 


The  beautiful  princess  is  held 
captive  by  deadly  draj^ons.  Only 
a  knight  in  shining  armor  can 
save  her  now' 


A  time-saving  organizer  for 
coupons,  receipts  and  more. 


A  scientifically  proven  way  to 
develop  an  awesome  memory. 


Cut  your  energy  costs  by  moni- 
toring you  r  phone,  e  lectric  and 
^as  bills. 


Sc  hool-age  and  pre-school 
children  are  rewarded  for  right 
answers,  corrected  on  their 
wrong  ones. 
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You  are  I  rapjjed  in  a  fivi-- 
story,  12.")-roomstrueture 
made  entirely  of  ice.  Find  the 
exit  before  you  freeze! 


Computerize  car  maintenance 
to  i mp rove  auto  performance, 
economy  and  resale  value. 
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A  real  brainfiexer.  Deflect 
random  balls  into  targets  on 
a  constantly  changing  pl^faeld. 


Take  cont  rol  of  you  r  personal 
finances  in  less  than  one  hour 
a  month. 
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Create  multi-colored  bar 
graphs  with  a  surprisingly 
small  amount  of  memory. 


A  fun  way  to  dramatically 
increase  typing  speed  and 
accuracy. 


Get  up  to  30  new  programs  and  games 
for  less  than  15  cents  each — 
every  month  in 


Every  month,  COMPUTE!  readers  enjoy  up  to  30  brand 
new,  ready-to-run  computer  programs,  even  arcade 
quality  games. 

And  when  you  subscribe  to  COMPUTE!  at  up  to 
40%  off  the  newsstand  price,  you'll  get  them  all  for  less 
than  15  cents  each! 

You'll  find  programs  to  help  you  conserve  time,  ener- 
gy  and  money.  Programs  like  Cash  Flow  Manager.  Re- 
tirement Planner.  Coupon  Filer.  Dynamic  Bookkeeping. 

You'll  enjoy  games  like  Air  Defense,  Boggier,  Sla- 
lom and  High  Speed  Mazer. 

Your  children  will  find  learning  fast  and  fun  with 
First  Math,  Guess  That  Animal  and  Mystery  Spell. 

Looking  for  a  challenge?  You  can  write  your  own 
games.  Customize  BASIC  programs.  Even  make  beau- 
tiful computer  music  and  pictures. 

It's  all  in  COMPUTE!  All  readvto  type  in  and  run 

on  vour  Atari,  Apple,  Commodore,  PET/CBM,  TI 99/4A, 
Radio  Shack  Color  Computer,  IBM  PC  or  IBM  PCjr. 

What's  more,  you  get  information-packed  articles, 
product  reviews,  ideas  and  advice  that  add  power  and 
excitement  to  all  your  home  computing. 

CALL  TOLL-FREE  ^ 

1-800-334-0868  Jp 


And  when  it's  time  to  shop  for  peripherals  or     J^ 
hardware,  check  COMPUTE!  first.  Our  product    JF 
evaluations  can  save  you  money  and  costly  m\s-j^ 
takes.  We'll  even  help  you  decide  what  to  buy:^r 
Dot-matrix  or  daisy-wheel  printer?  Tape    ^ 
storage  or  disk  drive?  What  about  J^ 

modems?  Memory  expansion  kits?     ^r    SUBSCRIBE 
What'snewin  joysticks,  paddles      j^  NOW  AND 
and  track  bails? '  ^  SAVE  UP  TO 

J^  40% ON  COMPUTE! 


SAVE 
UP  TO  40% 

OFF  THE 

NEWSSTAND 

PRICE  ON 

COMPUTE! 


Return  the 
coupon  or 
postpaid     J 
card         jf 
today  I  >^ 


J^  Yes!  Start  my  subserip- 
>    tion  to  COMPUTE!  for: 
Jr       n  1  vear  $24—32%  off! 
^         0  2  years  $45—36%  off! 
D  3  years  $65-40%  off! 

D  Payment  enclosed        D  Bill  me 

^  Charge  my  D  Visa  D  MasterCard  DAm.Ex. 
^                                                                   / 
Account  No '- 


^^     Name . 
^^     Address 


City 


.  State . 


.Zip. 


COMPUTE!  P.O.  Box  914,  Farmingdale,  NY  11737 


ahead  of  any  personal  computer  now  on  the 
market.  This  computer  is  potentially  powerful 
enough  to  make  an  IBM-PC  look  like  a  four- 
function  calculator.  Judge  for  yourself.  Standard 
features  include: 

•  A  Motorola  68000  microprocessor  chip  for 
the  central  processing  unit.  This  is  the  same 
16/32-bit  chip  found  in  the  Apple  Macintosh. 

•  128K  of  RAM,  expandable  to  512K  in- 
ternally and  several  megabytes  (lOOOK)  ex- 
ternally. 64K  of  ROM,  with  built-in  BASIC  and 
speech  software,  including  a  text-to-speech  pro- 
gram. We  heard  the  Lorraine  talk  in  its  male  and 
female  voices,  and  both  were  quite  understand- 
able. The  BASIC  language  is  said  to  be  very  fast 
and  compatible  with  Applesoft,  though  with  ex- 
tra commands  for  graphics  and  other  capabilities. 

•  Built-in  320K  double-sided  disk  drive,  IBM- 
compatible.  A  second  external  drive  can  be 
powered  by  the  internal  power  supply. 

•  Built-in  300-bps  (bits  per  second)  modem, 
replaceable  with  a  1200-bps  modem. 

•  Parallel  and  serial  interface  ports;  a  top 
"chimney  port"  for  individually  powered  expan- 
sion modules,  including  more  RAM  and  a  hard 
disk  drive;  and  a  front  cartridge  slot  for  ROM 
software  or  coprocessors,  such  as  an  8088  mod- 
ule for  IBM/MS-DOS  compatibility. 

•  Four  sound  channels,  with  music  capabili- 
ties comparable  to  the  Commodore  64's  SID  chip, 
We  heard  this  demonstrated  with  a  plug-in  organ 
keyboard;  the  sound  was  very  impressive.  (One 
sound  channel  is  used  by  the  speech  software.) 

•  Medium-resolution  graphics  of  320  X  200 
pixels  (screen  dots),  and  hi-res  graphics  of  640  X 
200  pixels,  with  a  total  of  4096  colors.  (That's  not 
a  typo.  We  saw  a  dramatic  rainbow  demo  which 
supposedly  displayed  all  4096  colors  on  the 
screen  simultaneously,  though  we  didn't  have 
time  to  count  them.) 

•  Eight  sprites  (up  to  16  colors  each)  with 
collision  detection  and  display  priorities.  Plus  an- 
other feature  called  "frame-buffer  animation," 
which  lets  you  pick  up  any  piece  of  the  screen 
and  move  it  anywhere  else.  Plus  built-in  com- 
mands for  line-drawing,  fills,  and  both  horizontal 
and  vertical  fine  scrolling.  Plus  split-screen 
graphics,  with  each  screen  "window"  capable  of 
displaying  different  graphics  modes  while  operat- 
ing independently,  even  with  fine  scrolling. 

•  Outputs  for  TV,  composite  video,  and  two 
types  of  RGB  (red-green-blue)  direct-drive  mon- 
itors. The  TV  output  shown  to  us  was  so  pure 
that  80-column  text  (also  standard)  was  almost 
readable  from  across  the  room. 

•  On  top  of  all  this,  Amiga  claims  the  Lor- 
raine will  come  bundled  with  software,  including 
a  disk  operating  system,  word  processor,  and 
spreadsheet. 
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So  how  much  will  this  wonderbox  cost? 
According  to  Amiga,  only  $1500.  Amiga  also 
claims  the  Lorraine  will  be  ready  for  shipment  by 
Christmas. 

However,  there's  a  big  difference  between 
design  engineering  and  production  engineering. 
The  Lorraine  at  the  June  CES  was  such  a  rough 
prototype  that  it  was  operated  from  a  remote 
terminal.  To  gear  up  for  production  in  less  than 
six  months  will  take  a  herculean  effort,  and  lots 
of  capital. 


Commodore's  new  Plus/4  computer— a  revised  version  of 
the  264  shown  by  Commodore  last  January — has  four 
programmable  function  keys  and  four  separate  cursor  keys. 


Commodore's  Plus/4  And  1 6 

Commodore  showcased  two  new  computers.  The 
Plus/4,  which  Commodore  calls  its  "productivity 
machine,"  is  based  on  the  technology  introduced 
(but  never  released)  with  the  Commodore  264  at 
January's  CES  in  Las  Vegas.  The  Plus/4  comes 
with  four  built-in  integrated  programs:  a  word 
processor,  data  base,  spreadsheet,  and  graphics. 

The  64K  RAM  (random  access  memory) 
computer  allots  a  full  60K  for  BASIC  program- 
ming, and  features  an  enhanced  BASIC  with  over 
75  commands,  including  11  for  graphics.  The 
machine  also  has  eight  reprogrammable  function 
keys,  four  separate  cursor  keys,  128  colors  (16 
primary  colors  and  8  luminance  levels),  a  320  X 
200  pixel  screen  resolution,  and  a  12-command, 
built-in  machine  language  monitor. 

Commodore  believes  the  Plus/4  offers  a 
productivity-oriented  alternative  to  the  popular 
Commodore  64,  which  continues  to  sell  very 
well.  The  Plus  4  does  not  have  such  attractive 
Commodore  64  features  as  the  versatile  SID 
(Sound  Interface  Device)  chip,  with  its  three  in- 
dependent voices,  or  the  eight  programmable,  in- 
dependently movable  sprites. 

Since  the  Plus/4  is  significantly  different 
internally  from  the  64,  the  two  are  largely  in- 
compatible when  it  comes  to  software.  Commo- 
dore emphasizes  that  sales  of  the  64  continue  to 


We  don't  care 
which  computer  you  own. 

Wfe'U  help  you 
get  the  most  out  of  it. 


CompuServe  puts  a  world  of  information,  communications,  and 

CompuServe  is  the  easy  to  use  videotex    sophisticated  financial  data.  Plus,  a 


service  designed  for  the  personal 
computer  user  and  managed  by  the  com- 
munications professionals  who  provide 
business  information  services  to  over  one 
fourth  of  the  FORTUNE  500  companies. 

Subscribers  get  a  w^ealth  of  useful, 
profitable,  or  just  plain  interesting  infor- 
mation like  national  news  wires,  electronic 
banking  and  shop  at  home  services,  and 


communications  network  for  electronic 
mail,  a  bulletin  board  for  selling,  swap- 
ping, and  personal  notices  and  a  multi- 
channel CB  simulator 

You  get  games  on  CompuServe,  too. 
Classic  puzzlers,  educational,  sports  and 
adventure  games  and  fantastic  space 
games  featuring  MegaWars,  the  "ultimate 
computer  conflict" 


entertainment  at  your  fingertips. 

To  learn  more  about  CompuServe,  call 
toll-free,  800-848-8199,  for  an  illustrated 
guide  to  the  CompuServe  Information 
Service.  The  videotex  service  for  you,  no 
matter  which  computer  you  ovm. 

CompuServe 

Consumer  Information  Service.  P.  O.  Box  20212 
5000  Arlington  Centre  Blvd.,  Coiumbus,  OH  43220 

800-848-8199  [nOhloCall614-457-O802 

An  H&R  Block  Company 


device,  and  can  handle  cartridge 
or  cassette-based  software. 
However,  the  16  does  have  a 
disk  drive  port  for  those  who 
wish  to  use  it.  Special  features 
include  a  built-in  machine  lan- 
guage monitor,  graphics  and 
sound  commands,  BASIC  3.5, 
and  screen  window  capability. 

Commodore  Peripherals 

Commodore  also  introduced  the 
following  peripherals  at  CES,  all 
of  which  are  scheduled  for  fall 
release  (prices  have  not  been 
announced  as  of  this  writing): 

•  Commodore  DPS  1101 
Daisywheel  Printer — A  business- 
oriented  letter-quality  printer 
which  features  a  bidirectional, 
logic-seeking  print  mechanism 
that  prints  at  18  characters  per 
second  (cps).  It  is  compatible 
with  the  new  Plus/4  computer. 

•  Commodore  MPS  802 
Dot  Matrix  Printer — A  bi- 
directional impact  dot  matrix 
printer  with  a  speed  of  60  cps 
for  correspondence-quality 


be  excellent,  and  that  the  com- 
pany's support  of  the  machine 
will  remain  strong. 

The  Plus/4  will  reportedly 
sell  for  about  $299,  and  is  ex- 
pected to  be  on  store  shelves  by 
this  fall. 


i] 


"The  Learning  Machine 

The  Plus/4's  younger  brother  is 
the  new  Commodore  16,  which 
the  company  calls  "The  Learn- 
ing Machine."  This  16K  ma- 
chine is  aimed  at  the  first-time 
computer  user,  and  will  take  the 
place  of  the  still  popular  4K 
VIC-20. 

Commodore  officials  indi- 
cated at  CES  that  while  the 
company  plans  to  continue  soft- 
ware support  for  the  VIC,  pro- 
duction has  stopped  on  the 
machine.  The  new  Commodore 
16  will  reportedly  retail  for 
about  $100,  and  is  clearly  aimed 
at  the  same  market  as  the  VIC. 

The  Commodore  16  will 
use  a  Commodore  Datassette  re- 
corder as  the  primary  storage 
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print.  It  is  compatible  witli  all 
Commodore  computers  and 
prints  numerics,  symbols,  and 
all  PET  graphics. 

•  Commodore  MCS  801 
Color  Dot  Matrix  Printer — A 
unidirectional  color  impact  dot 
matrix  printer  for  users  of  the 
Commodore  64,  It  prints  at  30 
cps,  with  eight  vertical  dots 
and  640  columns,  and  pro- 
duces color  graphics. 

•  Commodore  MPS  803  Dot 
Matrix  Printer — The  introduc- 
tory dot  matrix  printer  is  for  the 
Commodore  16  computer,  and 
prints  alphanumeric  and  graphic 
characters  with  a  variety  of 
styles  and  capabilities. 

•  Commodore  1531  Cas- 
sette— This  cassette  drive  is 
aimed  at  users  of  the  new  Com- 
modore 16  computer.  It  uses 
standard  audio  cassette  tapes; 
digital  tapes  are  not  necessary. 

•  Commodore  CM  141  Color 
Monitor — Designed  to  coordi- 
nate cosmetically  with  the 
Plus/4  computer,  the  CM  141  is 
also  compatible  with  all  of  Com- 
modore's computer  equipment. 

More  Software  For 
The  64 

Commodore  also  had  several 
new  software  announcements. 
Working  with  Marvel  Comics 
and  Adventure  International, 
Commodore  will  release  a  series 
of  six  adventure  games,  called 
Questprobe,  which  will  feature 
superheroes  from  Marvel  Com- 
ics. The  first  game  will  be  The 
Hulk,  which  will  be  available  in 
August  for  both  the  Commo- 
dore 64  and  the  Plus/4 
computers. 

Videotex  64  is  a  new  soft- 
ware package  from  Commodore 
for  the  64,  which  will  allow  you 
to  create  business  graphics  or 
other  pictures  in  high-resolution 
color  and  combine  them  with 
text  for  transmitting  over  regu- 
lar telephone  lines  (using  a 
VICMODEM)  to  other  Videotex 
64  users.  The  package  should  be 
available  by  the  time  you  read 
this  (price  to  be  announced). 


Commodore  also  intro- 
duced a  new  educational  soft- 
ware program.  Just  Imagine,  for 
the  Commodore  64.  The  pack- 
age is  designed  to  help  children 
combine  visual  and  verbal  skills 
to  create  an  animated  story  on 
the  computer.  Just  Imagine  is 
aimed  at  children  from  4  to  14 
years  of  age,  and  has  increasing 
levels  of  complexity. 

Finally,  Commodore  also 
introduced  B/Graph,  a  charting 
and  statistical  analysis  program 
for  the  Commodore  64,  which  is 
designed  to  analyze  and  convert 
any  raw  data  into  a  graphic 
representation, 

"The  New  Adam" 

Coleco  Industries,  Inc.,  which  a 
year  ago  made  the  biggest  news 
at  CES  with  its  bundled  Adam 
computer  system,  came  to  this 
year's  show  with  the  slogan, 
"The  1984  ADAM  Is  Ready," 

The  company  says  that  any 
reliability  problems  that  the 
Adam  may  have  had  have  now 


been  corrected,  and  a  new  six- 
month  warranty  program  has 
been  instituted  to  demonstrate 
Coleco's  confidence  in  its 
machine. 

Coleco  announced  the  June 
shipment  of  a  variety  of  new 
software  programs  for  the 
Adam,  including  SmartLogo,  a 
programming  language;  Smart- 
Letters  &  Forms,  a  correspon- 
dence program;  SmartFiler  and 
Recipe  Filer,  which  organize 
home  data;  and  SimpleCalc,  a 
spreadsheet.  Educational  and 
entertainment  titles  were  also  an- 
nounced, including  Electronic 
Flashcard  Maker,  Brain  Strainers, 
ExpeType,  Zaxxon,  Dukes  of  Haz- 
ard, and  others. 

Among  its  hardware 
peripherals  for  the  Adam, 
Coleco  showed  an  additional 
digital  data  drive,  which  can 
store  up  to  512K  of  information 
on  two  data  packs;  a  5% -inch 
disk  drive;  the  AdamLink  Direct 
Connect  Modem,  a  300-baud 
full-duplex  modem  with 


STAR  WARS'."  the  srcadc  game  that  blew  its  -May  to  the  top  of  the  charts,  is  coming  home, 
TIE  FIGHTERS'"  fireballs,  catwalks,  they're  all  there  in  3  of  the  hottest  action  screens  in  any 
galaxy.  There  is  only  one  STAR  WARS:  THE  ARCADE  GAME' I'  For  the  Atari  2600, 5200,  Atari 
Home  Computers,  Coleco  Vision  and  the  Commodore  64.     i^MRKBIBfiOTHEftS 

*'  &  i  t983  LuCiSlilm  ltd.  fLfLt  Atl  rights  resened.  Parker  Brolhsri,  n  division  ol  CPG  Rroducrs  Corp..  dull^oiut^d  uier. 
A\Bru'  Atari  2S0O,"  snd  Alar,  SiOO"  sre  trsdsn^arMs  af  Atari,  Inc.  Coleco  Vision  is  a  iTsderrtark  ol  Coleco  loduitries.  inc. 
Commodore  64  is  a  itadsmark  of  Commodore  Busmess  Machines,  Inc.  Parker  Brothers  is  nol  atftliated  wilh  Alert  Inc 
CoiKO  Industries.  Inc.,  or  Commodore  Business  Maclrines.  Inc. 
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Atari's  CES  Line-Up 


Despite  continued  belt-tightening,  layoffs,  and 
other  reorganizationai  measures,  Atari,  Inc.,  ar- 
rived at  the  Summer  Consumer  Electronics  Show- 
with  an  extensive  array  of  software  and  a  prom- 
ise to  deliver  a  high-end  personal  computer 
before  the  end  of  the  year. 


Banners  on  the  press  conference  room  walls 
and  T-shirts  handed  out  by  Atari  employees  at 
the  Summer  Consumer  Electronics  Show 
(CES)  in  Chicago  all  said  the  same  thing: 
"June  3,  1984— The  Day  The  Future  Began." 

Atari  chose  that  date  {the  first  day  of  CES) 
as  the  kickoff  for  its  new  line  of  products.  And 
if  the  company  is  to  have  a  prosperous  fu- 
ture— if  it  is  to  have  any  future  at  all — Atari 
officials  know  that  the  reaction  to  its  CES  line- 
up of  software  and  hardware  must  be  very 
good  indeed. 

Under  President  James  Morgan's  direction, 
Atari  has  been  going  through  a  top-to-bottom 
shuffle  of  people,  products,  and  planning. 
After  staggering  financial  losses  during  1983 
and  smaller  losses  in  early  1984,  Morgan  has 
cut  hundreds  of  employees,  closed  some  re- 
search and  development  facilities,  and  pre- 
pared the  remaining  Atari  employees  to  be 
part  of  a  wholly  different  sort  of  company — 
smaller,  more  focused  on  selected  products, 
and,  perhaps  above  all,  a  credible  producer  of 
what  Morgan  terms  "interactive  electronics." 

To  give  meaning  to  those  efforts.  Atari's 
CES  line-up  was  the  strongest  presentation  of 
new  products  in  quite  a  while  from  the  Sunny- 
vale, California,  company. 

A  New  High-End  Computer 

First,  Atari  revealed  that  it  will  introduce  a  new 
high-end  computer,  reportedly  for  under  $1000, 
in  time  for  the  Christmas  buying  season.  The 
computer  will  be  an  extension  of  the  XL  line, 
very  similar  to  the  long-awaited  1450XLD. 
That  computer  was  shown  at  two  consecutive 
CES's,  but  is  not  going  to  be  released. 

No  name  has  yet  been  given  to  the  new 
machine  (as  of  this  writing).  But  Atari  says  that 
the  computer  will  have  64K  of  RAM  (random 
access  memory)  and  a  built-in,  double-sided, 
dual-density  disk  drive  that  stores  352K  of 
RAM  (about  250  typewritten  pages  of  infor- 
mation). The  disk  drive  is  said  to  work  five 
times  faster  than  current  Atari  models. 

A  data  base,  called  Atari  Grapevine,  will 


be  built  into  the  new  machine,  as  will  an 
autoanswer  and  autodial  300-baud  modem. 
The  computer  will  also  have  an  enhanced 
speech  synthesis  chip  which  will  be  capable  of 
reading  back  words  and  phrases  typed  on  the 
keyboard.  Atari's  new  machine  will  be  fully 
compatible  with  all  Atari  XL  peripherals  and 
software  programs,  say  company  officials. 

Expansion  System  And  Add-On 
Computer 

Atari  also  reportedly  plans  to  offer  an  expan- 
sion system  for  the  new  computer.  The  system 
will  allovv  the  computer  to  be  expanded  to 
128K  and  to  have  some  compatibility  (about 
70-80  percent)  with  other  operating  systems, 
such  as  CP/M  (Control  Program  for  Micro- 
computers), a  popular  business-oriented 
operating  system,  and  MS-DOS  (Microsoft 
Disk  Operating  System),  on  which  IBM's  PC  is 
based.  No  price  has  been  announced  yet,  but 
the  expansion  system  should  be  introduced 
before  the  end  of  the  year. 

Although  Atari  did  not  officially  exhibit 
the  new  machine  at  CES,  company  officials  did 
conduct  closed-door  showings  for  third-party 
software  designers  to  encourage  development  of 
a  substantial  software  base  as  soon  as  possible. 

Atari  will  also  offer  a  new  introductory 
computer  which  will  be  an  add-on  to  the 
company's  high-end  7800  ProSystem  game 
console,  announced  in  late  May.  The  7800 
Computer  Keyboard  operates  with  4K  of  RAM, 
expandable  to  20K. 

A  line  of  selected  computer  software, 
including  word  processing,  creative  learning, 
and  personal  development  programs,  will  be 
available  for  the  new  introductory  computer. 
And  the  Computer  Keyboard  will  be  com- 
patible with  almost  all  of  the  Atari  computer 
peripherals.  The  add-on  computer  should  be 
available  before  the  end  of  1984,  priced  at 
under  $100. 

Atari  unveiled  several  programs  in  a  line 
of  introductory  computer  software  to  be  used 
with  the  7800  ProSystem  Computer  Keyboard: 
Atari  Terminal,  a  telecommunications  cartridge; 
Atarilab,  a  science  learning  series;  Typing  Tu- 
tor, a  tutorial  typing  game;  The  Word  Processor; 
and  BASIC. 

The  MindUnk  System 

One  of  the  most  innovative  products  revealed 
by  Atari  at  CES  was  its  new  MindLink  System 
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headband,  which  uses  slight  electrical  impulses 
from  muscles  in  the  forehead  to  direct  the  ac- 
tion on  your  computer  screen. 

Mindlink,  which  will  be  available  for 
Atari's  2600  Video  Computer  System  (VCS) 
and  new  7800  ProSystem  game  machines  this 
fall  and  for  the  XL  computers  in  early  1985, 
will  sell  for  a  suggested  retail  price  of  $79.  In- 
cluded will  be  the  headband,  two  infrared  sen- 
sors, and  a  software  package. 

Atari  plans  three  software  packages  for 
the  unit  initially — an  adventure  game,  a  new 
version  of  the  popular  Breakout  videogame, 
and  a  relaxation,  biofeedback  program. 

The  headband  is  surprisingly  sensitive. 
And  despite  the  initial  skepticism  of  some 
members  of  the  trade  press,  the  MindUnk  Sys- 
tem proved  easy  to  use  (without  having  to 
wriggle  your  forehead,  ears,  or  eyebrows  to 
trigger  it).  There  are  also  obvious  long-range 
possibilities  with  this  kind  of  technology  for 
the  physically  handicapped  who  are  not  able 
to  use  conventional  keyboards,  joysticks,  and 
other  input  devices. 

Eorly  Learning  Software 

Atari  has  teamed  with  child  psychologist  Dr. 
Lee  Salk  to  develop  early  learning  game  soft- 
ware for  toddlers  (one  to  three  years  old)  to 
use  with  the  help  of  their  parents.  The  first 
package,  Peek-A-Boo,  has  eight  levels  of  play 
and  is  supposed  to  help  even  very  young  chil- 
dren learn  about  cause  and  effect,  spatial 
relationships,  colors,  shapes,  and  letters  and 
numbers. 

The  new  videogame  cartridges  developed 
by  Dr.  Salk  and  Atari  will  use  the  previously 
developed  Atari  Kids  Controller,  especially  de- 
signed for  small  hands.  Peek-A-Boo  will  be 
available  on  the  Atari  2600  VCS  and  the  7800 
ProSystem  for  a  suggested  retail  price  of  $30, 
but  will  not  be  available  for  Atari  computers. 

Futuremakers  Series  For  Older 
Children 

Two  computer  software  tours  of  space.  This  Is 
Ground  Control  and  Through  the  Starbridge, 
were  introduced  as  the  first  products  in  Atari's 
new  Futuremakers  series. 

Featuring  3-D  animated  graphics  of  plan- 
etary approaches  and  fly-bys,  the  programs  are 
aimed  at  users  ten  years  of  age  and  older. 

The  Futuremakers  series  should  be  available 
on  disk  for  Atari  computers  about  the  time  you 
read  this,  for  a  suggested  price  of  $39.95  each. 

An  Abundance  Of  Software 

Atari's  CES  announcements  also  included  the 


following  products: 

•  Milestone  Series:  The  Atari  Learning 
Systems  group  has  put  together  what  it 
considers  the  best  in  home  computer  educa- 
tional packages  not  only  from  Atari,  but  within 
the  entire  industry.  Milestone  Series  software 
will  be  not  only  for  Atari  computers,  but  for 
other  systems  like  Commodore,  IBM,  and  Ap- 
ple as  well.  Suggested  retail  price  for  most  of 
the  packages  is  $34.95,  except  where  noted 
differently. 

AtariLab  Starter  Set  ($89.95)  and  Tem- 
perature Module/Light  Module  are  aimed  at 
children  from  4  to  12  years  of  age,  allowing  the 
user  to  conduct  more  than  100  experiments. 

Yaacov  Agani's  Interactive  Painting  (price  to 
be  announced)  is  a  package  developed  by  well- 
known  kinetic  artist  Yaacov  Agam,  which  helps 
the  user  generate  original  art  by  computer. 

Find  It!  is  a  series  of  visual  perception 
activities  and  puzzles  for  children  of  all  ages. 

The  ABC  of  CPR  is  a  home  health  library 
of  software,  the  first  module  of  which.  First 
Aid,  is  a  two-part  tutorial  and  simulation  de- 
signed to  help  build  awareness  and  background 
information  for  handling  first-aid  emergencies, 

Wheeler-Dealer  is  an  economic  supply- 
and-demand  game  which  lets  the  player  learn 
how  to  handle  a  wide  variety  of  business 
problems  while  becoming  an  auto  industry 
magnate. 

Simulated  Computer,  which  shows  what 
goes  on  inside  a  computer,  and  Telly  Turtle,  a 
pictorial  pre-Logo  version  of  the  turtle  graphics 
concept,  are  two  more  titles  in  the  Milestone 
Series. 

•  Atari  Educational  Software:  Two  new 
software  packages  for  children  4  to  12  years 
old  were  introduced.  Letter  Tutor  and  Word  Tu- 
tor, priced  at  $39.95  each. 

Atarisoft's  New  Titles 

Atarisoft,  the  third-party  software  publishing 
division  of  Atari,  Inc.,  announced  numerous 
titles  for  the  Commodore  64  and  VIC-20,  the 
Apple  II  family,  and  the  IBM  PC. 

Also,  for  the  IBM  PCjr,  Atarisoft  has  in- 
troduced Centipede,  Donkey  Kong,  Moon  Patrol, 
and  Pac-Man. 

Suggested  retail  price  for  the  Atarisoft  games 
on  disk  is  $34.95,  and  for  cartridge,  $44.95. 

7800  ProSystem  Exhibited 

Atari  also  showcased  its  new  high-end  7800 
ProSystem  videogame  console  ($150  retail), 
which  Atari  says  has  the  most  advanced  color 
graphics  of  any  home  computer  or  videogame 
currently  available. 
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AdamLink  telecommunications  software;  a 
64K  Memory  Expander,  which  increases  the 
memory  capacity  of  the  system  from  80K  to  144K 
RAM;  the  Adam  Universal  Interface,  which  has 
an  RS-232  connector  and  a  Centronics  parallel 
connector  which  allows  a  user  to  connect 
peripherals  and  accessories  from  other  manufac- 
turers; and  an  accessory  kit  which  includes 
replacement  daisywheels,  cartridge  ribbons,  tape 
head  cleaner,  and  a  blank  digital  data  pack. 

Sinclair's  QL  Computer 

Sinclair  Research  Ltd.  also  showed  a  new  com- 
puter at  CES,  the  Sinclair  QL,  which  was  intro- 
duced in  London  in  January  and  is  scheduled  for 
introduction  in  the  U.S.  this  fall  at  a  price  of  $499. 

The  QL  has  128K  of  RAM  and  is  based  on 
the  Motorola  68000  microprocessor,  the  same 
microprocessor  family  used  with  the  Lorraine 
and  the  Macintosh.  There  are  two  built-in  lOOK 
microdrives  for  mass  storage,  a  65-key  keyboard, 
and  the  entire  unit  weighs  just  three  pounds. 

The  QL  will  come  with  a  built-in  BASIC  as 
well  as  four  applications  software  programs: 
Quill,  a  word  processor;  Abacus,  a  spreadsheet; 
Archive,  a  data  base;  and  Easel,  a  graphics 
package. 

Sinclair  will  sell  the  QL  by  mail  order  in  the 
U.S.,  and  hopes  to  be  receiving  orders  in  time  for 
the  Christmas  buying  rush. 

The  Software  Boom  Is  On 

While  computer  hardware  innovations  continue 
to  move  the  microcomputer  world  along  at  a 
dizzying  pace  compared  to  most  industries,  it  is 
software  growth  that  is  sparking  some  of  the 
greatest  interest  among  consumers  and  computer 
industry  entrepreneurs. 

While  innovations  in  personal  computer  soft- 
ware may  not  be  as  plentiful  as  some  critics 
would  like,  there  is  no  question  that  the  caliber 
of  current  software  is  far  ahead  of  the  programs 
produced  even  a  year  ago. 

Here  are  some  of  the  more  impressive  pro- 
grams introduced  at  CES: 

Muppet  Learning  Keys  {Koala  Technol- 
ogies)— A  computer  peripheral  for  the  Apple  He, 
lie,  and  the  Commodore  64,  Muppet  learning 
Kei/s  is  a  computer  keyboard  which  simulates  the 
familiar  contents  of  a  child's  school  desk  to  help 
youngsters  learn  basic  skills. 

Aimed  at  preschoolers,  the  package  is  a 
three-pound  keyboard  which  parents  can  help 
their  children  use  to  learn  the  alphabet,  numbers, 
colors,  and  shapes.  The  keyboard  has  equivalents 
to  such  school-desk  standards  as  a  ruler,  water- 
color  set,  penmanship  slate,  compass,  eraser,  and 
arithmetic  exercise  book. 

Developed  in  association  with  Henson  Asso- 
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Koala  Techiwlogies  announced  the  Muppet  Learning 
Keys,  a  child's  computer  keyboard  which  uses  the  popu- 
lar Hejison  Muppets  to  help  preschoolers  learn  about  the 
alphabet,  numbers,  colors,  and  shapes. 


elates.  Inc.  (creators  of  the  Muppets),  and  Sun- 
burst Communications,  Koala's  Muppet  Learning 
Keys  incorporates  Kermit  the  Frog,  Miss  Piggy, 
Gonzo,  and  other  Muppets  to  provide  friendly 
instructions.  The  package  will  sell  for  $79.95. 

Commodore,  Apple  Science  Fiction- 
Based  Software 

Trillium  Science  Fiction  Series  (Spinnaker  Soft- 
ware)— Trillium,  a  new  division  of  Spinnaker,  is 
producing  a  series  of  interactive  computer  adven- 
ture games  inspired  by  the  novels  of  a  number  of 
best-selling  science  fiction  authors. 

The  first  six  titles,  all  of  which  will  be  avail- 
able in  August  or  early  fall  on  disk  for  the  Com- 
modore 64  ($39.95  each)  and  the  Apple  II  family 
($44.95),  are:  Rendezvous  With  Rama  by  Arthur  C. 
Clarke,  Amazon  by  Michael  Crichton,  Dragon- 
world  by  Byron  Preiss  and  Michael  Reaves, 
Starman  Jones  by  Robert  Heinlein,  Fahrenheit  451 
by  Ray  Bradbury,  and  Shadoiukeep,  from  which  a 
book  has  been  adapted  by  Alan  Dean  Foster. 

In  these  adventure  games,  the  player  as- 
sumes the  identity  of  the  characters.  The  scripts 
are  professionally  written — often  with  the  direct 
collaboration  of  the  original  author — and  the 
games  feature  high-resolution  color  graphics. 
Graphic  clues  are  used,  hints  are  available  to  re- 
duce frustration,  and  some  contain  arcade-style 
games  within  the  adventure  games. 

Michael  Crichton,  for  example,  wrote  the  en- 
tire script  for  Amazon  and  worked  with  the  game 


A  screen  from  Amazon  by  Michael  Crichton,  one  of 
Spinnaker's  new  Trillium  interactive  adventure  games 
based  on  popular  science  fiction  novels. 


Br0derbund's  Dazzle  Draw  makes  use  of  the  graphics 
power  of  the  Apple  lie. 


designers,  Arthur  C.  Clarke  worked  out  an  end- 
ing to  Rendezvous  With  Rama  for  the  game. 

Trillium  plans  other  games  based  on  science 
fiction  novels  by  Phillip  Jose  Farmer,  Roger 
Zelazny,  Alfred  Bester,  and  Harry  Harrison. 

An  Apple  Adventure 

Robot  Odyssey  I  {The  Learning  Company) — 
Following  on  the  heels  of  its  very  popular  educa- 
tional package,  Rocky's  Boots,  The  Learning  Com- 
pany is  introducing  an  educational  adventure 
program,  Robot  Odyssey  I,  designed  for  teenagers 
and  young  adults. 

Trapped  in  an  underground  world  populated 
by  robots,  you  can  only  escape  by  constructing 
your  own  robots.  The  program  provides  a  game 
format  while  at  the  same  time  teaching  the 
player  how  to  design  integrated  electronic  cir- 
cuitry, the  fundamentals  of  building  robots,  and 
the  basics  of  Boolean  logic.  There  are  an  Innova- 
tion Lab  and  helpful  tutorials  which  offer  step- 
by-step  instruction  for  players. 

Robot  Odyssey  I  is  the  first  program  in  The 
Learning  Company's  new  DigiWorld  Series,  soft- 
ware that  combines  the  interest  in  adventure 
gaming  with  the  learning  environment  of  a  com- 
puter construction  kit.  The  new  program  will  be 
available  for  the  Apple  II  family  of  computers  at 
$49.95. 

Magic  Spells  And  Monsters  For 
Commodore,  Atari 

Archon  II:  Adept  and  Skyfox  (Electronic  Arts) — 
One  of  the  most  popular  of  Electronic  Arts'  titles 
has  been  the  original  Archon,  a  chess-like  strat- 
egy game  that  also  includes  videogame  action. 
Free  Fall  Associates,  the  designers  who  created 


the  game,  have  expanded  on  that  theme  for  this 
sequel.  Adept. 

Magic  reigns  in  this  game,  with  players 
conjuring  spells,  summoning  monsters,  and  win- 
ning playing  squares  through  individual  combat. 
The  new  game  gives  players  an  expanded  arena 
in  which  to  fight,  with  more  options  and  an  al- 
tered game  landscape.  For  a  suggested  retail  price 
of  $40,  Archon  11:  Adept  is  available  for  Atari 
computers  (with  48K)  and  for  the  Commodore  64, 

Apple  tie  Graptiic  Punch 

Dazzle  Draw  (Broderbund) — A  complete  illustra- 
tion package  created  especially  for  the  Apple  Ik's 
double  high-resolution  capabilities  and  128K  of 
memory.  The  software  is  icon-based,  much  like 
the  Macintosh,  One  unique  tool  in  the  package  is 
the  ability  to  draw  with  pen  strokes  of  various 
shapes  and  sizes  in  16  colors.  Dazzle  Draw  can 
also  be  used  with  a  128K  Apple  He  with  an  80- 
column  card,  a  Revision  B  board,  and  one  disk 
drive.  Suggested  price  is  $49.95. 

Activision's  Commodore  64  Programs 

Zenji  and  Toy  Bizarre  (Activision) — These  two 
new  games  are  among  a  dozen  titles  that 
Activision  is  releasing  for  the  Commodore  64 
computer.  Zenji  is  an  intriguing  strategy  and  puz- 
zle game  with  a  distinctly  Eastern  flavor.  The 
player  mu^st  connect  a  glowing  maze  of  elements 
(the  Many)  to  a  pulsating  source  (the  One)  to 
create  a  single  unified  green  image,  or  "Zenji." 
The  play  is  rapid  and  demanding. 

Toy  Bizarre  lets  you  control  a  character 
named  Merton,  who  awakens  in  a  toy  factory 
which  has  gone  berserk,  as  gangs  of  tyrannical 
toys  attempt  to  take  over  the  shop  at  midnight,  © 
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The  COMPUTE!  Interview 


Gerard  K.  O'Neill 

Selby  Bateman,  Features  Editor 


"Keep  it  simple,  and  make  if 
work"  is  the  informal  motto  at 
Gerard  O'Neill's  Geostar  Corpora- 
tion, a  computer-based  satellite 
positioning  and  communication 
company  on  the  outskirts  of 
Princeton,  New  Jersey. 

The  motto  is  characteristic  of 
O'Neill,  a  leading  physicist,  au- 
thor, and  high-tech  entrepreneur, 
who  has  a  reputation  as  a  vision- 
ary scientist  ivith  a  knack  for  see- 
ing to  the  heart  of  complex  issues. 

His  first  major  scientific  con- 
tribution came  in  1956  when,  as  a 
29-year-old  Princeton  physics  in- 
structor, he  developed  the  storage- 
ring  technique  for  colliding 
particle  beams.  The  technique  has 
become  standard  for  subatomic 
particle  accelerators  in  the  field  of 
high-energy  physics. 

In  his  three  books.  The  High 
Frontier:  Human  Colonies  in 
Space;  2081:  A  Hopeful  View  of 
the  Human  Future;  and  most  re- 
cently. The  Technology  Edge: 
Opportunities  for  America  in 
World  Competition,  O'Neill  has 
explored  the  possibilities  of  space 
colonies,  satellite  communications, 
computers,  and  the  challenges 
facing  the  United  States  in  its 
economic  and  technological 
development. 

For  The  High  Frontier, 
O'Neill  received  critical  acclaim 
and  captured  the  popular  imagi- 
nation with  his  simple,  feasible 
plan  for  the  development  of  space 
colonies.  He  also  founded — and  is 
president  of — the  Space  Studies 
Institute,  a  privately  funded  orga- 
nization which  has  done  much  to 
further  the  goals  of  space 
exploration. 

Among  the  more  arresting 
concepts  he  developed  in  The 
High  Frontier  was  the  mass- 
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driver  transport  device,  a  device 
with  small  buckets  on  a  recircu- 
lating conveyor  belt  driven  by 
magnetic  impulses.  The  device 
could  be  used  to  efficiently  eject 
mined  lunar  raw  materials  into 
space,  propelling  them  to  a  space 
station  under  construction. 

His  latest  book.  The  Tech- 
nology Edge,  addresses  six  "hot" 
technologies  which  O'Neill  be- 
lieves are  crucial  emerging  indus- 
tries: microengineering,  robotics, 
genetic  engineering,  magnetic 
flight,  family  aircraft,  and  space 
science.  If  the  U.S.  does  not  com- 
pete successfully  in  these  areas, 
he  warns,  it  loilt  lose  the  techno- 
logical and  economic  leadership  it 
has  enjoyed. 

Despite  his  many  other  inter- 
ests, it  is  the  Geostar  Corporation 
which  currently  occupies  most  of 
O'Neill's  time  and  effort.  Geostar, 
a  development  firm  concerned 
with  communication  and  naviga- 
tion via  satellite,  is  a  perfect 


blend  of  O'Neill's  farsighted 
vision  and  his  make-it-work 
practicality. 

The  system  which  O'Neill 
and  his  colleagues  are  developing 
could  revolutionize  how  we  track 
and  monitor  aircraft  and  how  we 
communicate  with  one  another. 
Initially,  the  proposed  system 
would  have  three  satellites  in  geo- 
synchronous orbit  over  North 
America.  The  Geostar  central 
computer  facility  would  use  the 
satellites  to  route  tracking  and 
communication  data  almost  in- 
stantaneously for  everything  from 
commercial  airlines  to  trucking 
companies,  taxi  services,  police 
departments,  and  even  individ- 
uals. The  key  to  the  system  will 
be  a  hand-held  transceiver  which 
can  send  and  receive  messages 
through  the  Geostar  netioork. 

During  the  interview,  he  re- 
marked that  an  airplane  thou- 
sands of  feet  above  Princeton  loas 
in  the  process,  at  that  moment,  of 
testing  the  Geostar  system. 

An  articulate  and  engaging 
conversationalist,  O'Neill  is  inter- 
ested in  how  microcomputers  are 
affecting  our  society.  He  keeps  a 
well-used  Apple  11  Plus  within 
easy  reach  of  his  desk.  On  the  day 
he  spoke  to  COMPUTE!,  O'Neill 
had  been  using  a  new  Apple  Ik  to 
test  the  portability  of  his  II  Plus 
programs  to  the  new  machine. 


C!:  A  number  of  Japanese 
computer  companies  are  now 
getting  behind  what's  called  the 
MSX  operating  system  standard. 
And  that  will  probably  be  intro- 
duced sometime  soon  in  this 
country.  Do  you  think  that  in 
the  U.S.  we  will  see  a  standard 
operating  system? 
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Now  your  home  computer  can  help  you  cook,  keep  your  accounts,  find  an  address  or 
keep  track  of  your  record  and  book  libraries— with  first-class  software  specially  tailored 
for  the  home  environment. 

The  Home  Organizer™  series  includes  a  wide  range  of  separate  and  individual  programs  for 
different  activities  like  stamp  collecting,  personal  banking,  or  home  photo  and  movie 
collections.  Each  one  is  pre-programmed  with  a  "page"  format  planned  out  by  experts  to 
make  it  easy  for  you  to  store  and  retrieve  the  information  you'll  want  for  your  special  activity. 
You  don't  have  to  program  anything  yourself,  just  load  the  disk  and  start  feeding  in  your  data. 

If  you're  used  to  run-of-the-mill  home  computer  software,  the  speed  and  simplicity  of  the 
Home  Organizer™  series  will  surprise  you.  Each  program  is  written  entirely  in  "machine 
language ",  the  most  basic  computer  code.  So  they  search,  sort  and  analyze  your  data  with 
amazing  speed. 

The  Home  Organizer™  is  fcist  enough  to  sort  through  your  household  belongings  in 
seconds,  yet  so  simple  the  children  can  use  it  to  look  up  a  phone  number.  Choose  any  or  all 
program  modules  that  fit  your  needs.  They  make  ideal  gifts,  too! 
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(Wteries  ^  included) 

"Excellence  in  Software" 

for  A  fulJ  color  brochure  vvriie  lo: 

Batteries  Included,  186  Queen  Street  West,  Toronto,  Canada  M5V 1Z1  (416)  596-1405  3303  Harbor  Bivd.,  Costa  Mesa,  CA.  92626  (714)  979-0920 
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THE  INCOMPLETE  WORKS 
OF  INFOCOM,  INC 


Incomplete,  yes.  But  it's  not  just 
because  we're  always  bringing  out 
new  stories  in  the  Infocom  interactive 
fiction  collection.  Nor  is  it  simply  due 
to  the  fact  that  with  all  the  writing  and 
re-writing,  honing  and  perfecting  that 
we  put  into  every  one  of  our  stories, 
our  work  is  seemingly  never  done. 

The  real  reason  is:  an  Infocom 
work  of  fiction  can  never  be  complete 
until  you  become  a  part  of  it. 

You  see,  as  hard  as  we  work  at 
perfecting  our  stories,  we  always 
leave  out  one  essential  element— the 
main  character.  And  that's  where  you 
enter  in. 

Once  you've  got  Infocom's  inter- 
active fiction  in  your  computer,  you 
experience  something  alan  to  waking 
up  inside  a  novel.  You  find  yourself  at 
the  center  of  an  exciting  plot  that 
continually  challenges  you  with  sur- 
prising twists,  unique  characters 
(many  of  whom  possess  extraordi- 
narily developed  personalities) ,  and 
original,  logical,  often  hilarious  puz- 
zles. Communication  is  carried  on  in 
the  same  way  as  it  is  in  a  novel— in 
prose.  And  interaction  is  easy— you 
type  in  full  English  sentences. 


But  there  is  this  key  difference 
between  our  tales  and  conventional 
novels:  Infocom's  interactive  fiction  is 
active,  not  passive.  The  course  of 
events  is  shaped  by  the  actions  you 
choose  to  take.  And  you  enjoy  enor- 
mous freedom  in  your  choice  of 
actions— you  have  hundreds,  even 
thousands  of  alternatives  at  ever>' 
step.  In  fact,  an  Infocom  interactive 
story  is  roughly  the  length  of  a  short 
novel  in  content,  but  because  you're 
actively  engaged  in  the  plot,  your 
adventure  can  last  for  weeks  and 
months. 

In  other  words,  only  you  can 
complete  the  works  of  Infocom,  Inc. 
Because  they're  stories  that  grow 
out  of  your  imagination. 

Find  out  what  it's  like  to  get  inside  a 
story.  Get  one  from  Infocom.  Because 
with  Infocom's  interactive  fiction, 
there's  room  for  vou  on  ever>'  disk. 

inpocon\ 

Infocom,  Inc.,  55  Wheeler  Street,  Cambridge,  MA  02138 

Far  your:  Appk- 11.  Atiiri.  Cummodnre  6-1 ,  CF/M8".  DECmale. 
DFX  Rainbow.  DEC  RT-U.  IBM  PC"  and  PCjr.  KAYPRO  II, 
MS-DOS  2.0r  NEC  APC,  NEC  PC-BOOO.  Osborne,  Tandv  2000. 
Ti  Professional. Tl  99/4A.TRS.80  Models  I  ,ind  III. 
"Use  the  lB.\t  PC  vtrsion  for  your  Compaq,  and  the  MS-DOS  2.0 
version  for  your  Wang  or  Mindset. 


O'Neill:  The  whole  issue  of 
having  computer  programs  that 
remain  usable  as  you  go  for- 
ward in  time — usable  for  the  in- 
dividual person — is  I  think 
extremely  important,  I  think 
manufacturers  are,  first  of  all, 
being  far  too  callous  and  far  too 
arrogant  with  their  potential 
customers  about  what  they've 
been  doing  to  them  in  the  way 
of  operating  systems  and  pro- 
grams. Fundamentally,  if  you 
buy  a  program  and  use  it  and 
then  want  to  go  over  and  buy 
somebody  else's — or  somebody 
else  wants  to  sell  you  a  com- 
puter, say — I  think  that  the  first 
question  that  they  should  be 
able  to  answer  positively  is  the 
question:  Will  your  new  com- 
puter run  all  of  the  programs 
I'm  used  to? 

Now,  they  can  tell  you 
"We've  got  a  whole  bunch  of 
other  programs  which  are  much 
more  powerful"  and  have  all 
kinds  of  bells  and  whistles  and 
all  of  that.  Fine,  nothing  wrong 
with  growing.  But  they  should 
also  be  able  to  tell  you  that,  by 
the  way,  it  will  run  all  of  those 
programs  that  you  had  before. 

As  machines  get  more  pow- 
erful in  terms  of  processor  ca- 
pability and  memory  capacity 
and  so  on,  it's  not  that  tough  to 
do  it.  I  would  say  any  manufac- 
turer who  sets  up  a  general  pol- 
icy of  making  equipment  that 
will  run  anybody's  programs  is 
sure  going  to  get  my  business 
and  my  owner  loyalty  forever. 
The  problem  is  that  up  to  now 
manufacturers  have  not  even 
been  compatible  within  their 
own  product  lines. 

C!:  There  are  predictions 
that  by  1988  some  50  million 
homes  in  the  U.S.  will  have  per- 
sonal computers.  In  what  ways 
do  you  see  this  increased  aware- 
ness of  computers  affecting 
America's  technological  edge  in 
the  world? 

O'Neill:  I  think  it  will  help 
a  lot.  It's  already  true,  just  be- 
cause of  the  accident  that  we 


work  on  an  alphabet  and  the 
Japanese  work,  of  course,  with  a 
character-based  system,  that  we 
as  a  people  are  far  more  familiar 
with  keyboards  than  they  are. 
Young  Americans  growing  up 
nowadays,  working  with  per- 
sonal computers,  are  much  more 
familiar  with  keyboards,  much 
less  scared  of  them,  than  the 
older  generation. 

Geostar  is  a  digital  system, 
a  keyboard-type  system.  It's  not 
a  voice  system.  It  could  be  con- 
nected to  a  personal  computer 
anytime.  The  message  transfer 
capability  is  entirely  consistent 
with  the  kind  of  telecommunica- 
tions that  you  like  to  carry  out 
with  your  personal  computer,  or 
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anufacturers 
are  ...  being  far 
too  callous  and  far 
too  arrogant  with 
their  potential 
customers...." 


from  a  portable  computer.  And, 
of  course,  by  1987,  today's  three 
or  four  pound  computers  that  fit 
in  a  briefcase  are  probably  going 
to  be  shrunk  down  to  a  quarter 
of  an  inch  thick.  You  can  carry 
those  along  with  a  Geostar 
transceiver,  and  be  in  instant 
touch  with  anywhere, 

C!:  In  the  U.S.,  companies 
like  Apple  and  IBM  and  other 
microcomputer  companies  are 
very  competitive.  There  is  very 
little  ability  to  travel  from  one 
system  to  another  .... 

O'Neill:  Yeah,  that's  a  sore 
point  with  me.  I  get  very  exer- 
cised over  it. 

C!:  Artificial  intelligence  is 


another  area  in  which  the  Japa- 
nese are  showing  a  great  deal  of 
concerted  effort,  just  as  they  are 
in  robotics.  What's  your  view  of 
the  pace  of  change  in  artificial 
intelligence  development? 

O'Neill:  You  run  into  some 
very  strong  opinions  there. 
There's  been  a  band  of  sup- 
porters for  artificial  intelligence 
for  some  25  years.  And  all  in  all 
(although  they  are  very  bright 
people)  I  think  it's  fair  to  say 
that  their  accomplishments  have 
been  substantially  less  than  they 
were  advertising  when  they 
started. 

It's  a  very  tough  subject. 
One  of  the  fundamental  reasons 
why  it's  so  tough  is  that  if  you 
really  want  to  have  machines 
that  think  like  people,  you  have 
to  go  back  to  the  beginnings  of 
how  computers  were  designed. 
You  don't  want  a  serial,  bit- 
based  machine.  You  need  to 
have  a  machine  which  some- 
how can  carry  out  the  associa- 
tive function  of  the  human 
brain.  Which  is  a  function  that 
we  have  very  little  understand- 
ing of.  You  know,  we  do  not 
understand  the  associative  func- 
tion of  the  human  brain  nearly 
as  well  now  as  we  understood 
binary  arithmetic  five  thousand 
years  ago.  So,  it's  not  just  a 
question  of  how  to  design  a 
computer,  it's  to  even  under- 
stand the  problem  well  enough 
to  know  how  to  start  it.  1  think 
there  are  sure  to  be  some  very 
exciting  developments  in  artifi- 
cial intelligence  over  the  next 
fifty  years,  but  I'd  be  surprised 
if  they  come  out  of  classical 
computer  design  of  the  kind 
that  we're  used  to  now. 

C!;  In  the  field  of 
microengineering,  we're  begin- 
ning to  see  more  interest  in 
what  are  called  "biochips" — 
computer  circuits  that  one  day 
might  be  based  on  biological 
molecules.  There  are  even  a  few 
biochemists  who  feel  biochemi- 
cal engineering  may  lead  to 
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UNLEASH  THE 

POWER 

OF  YOUR  IBM 

PERSONAL  COMPUTER 

WITH 
COMPUTEI's  PC&  PCjr. 


COMPUTEl's  PC  &  PCjr  is  the  new  magazine  from 
COMPUTE!  to  help  you  unleash  the  power  of  your  IBM 
at  home,  school  and  office. 

In  every  issue,  you'll  discover  ready-to-type,  ready- 
to-run  program  listings — including 
games,  educational  programs  and 
utilities.  Exciting  sound  and  graphics 
applications.  How-to  articles  for  hobby- 
ist programmers.  In-depth  product 
reviews.  News  of  the  latest  developments 
in  the  personal  computer  industry.  Expert 
advice  and  answers  to  your  technical  ques- 
tions. In  short,  everything  you  need  to 
get  the  most  from  your  IBM  computer. 

Program  Power.  COMPUTEl's  PC  &  PCjr 
Magazine  is  for  people  who  want  to  use 
their  computer — not  just  read  about 
computers.  You'll  find  at  least  half 
a  dozen  ready-to- run  programs 
for  your  PC  or  PCjr  every  plMMi: 

single  month! 

Money-Saving  Power,  We 
show  how  to  make  your  time 
with  your  computer  more 
productive.  How  you  can  run 
office  programs  on  your 


home  system.  Organize  a 
small  business.  You'll  even 
discover  programs  to  help 
you  make  smarter  invest- 
ments, project  your  IRA 
earnings,  evaluate  tax  deduc- 
tions, and  more. 

Buying  Power.  Every  issue 
contains  fair,  objective  re- 
ports on  the  newest  software 
and  hardware  to  hit  the 
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Save  33%  as  a  Charter  Subscriber! 

LJ  YES.  Start  sending  me  the  power  of 
COMPUTEl's  PC  &  PCjr.  Please  enter  my  Charter 
Subscription  at  just  S24  for  12  issues — a  33% 
savings.  1  understand  I  can  cancel  at  any  time  for 
a  full  pro-rata  refund. 

Name 


Addres: 
City_ 


D  Payment  enclosed  D  Bill  me 
Chaise    n  Visa    D  MasterCard 
n  American  Express 


-State 


Account  No. 


market.  Plus  balanced  software  and  hardware  reviews 

that  help  you  decide. 

Game  Power.  Adventure  games  and  action  games,  puzzle 

games  and  educational  games.  Escape  your  captors  in 
"Martian  Prisoner."  Defend  the  Earth 
in  "Aardvark  Attack."  Solve  the  puzzles 
of  "Mind  Boggier."  Entertain  your 
children  and  sharpen  their  skills  with 
"Munchmath""  and  "Word  Match." 

Learning  Power.  Want  to  write  your  own 
programs?  We  can  help  you  with  pro- 
gramming tutorials  and  descriptions  of 
how  our  programs  work.  Plus  a  regular 
monthly  column  for  BASIC  beginners. 

Iblecommunications  Power.  Learn  how 
your  IBM  can  telecommunicate  with 
other  computers  over  ordinary  phone 
lines.  Link  up  with  your  office  or  school 
____  computer.  Access  informa- 
■  tion  services  such  as  Dow 
Jones,  CompuServe,  and  The 
Source.  Even  leave  messages 
in  our  electronic  mailbox! 

To  start  bringing  home  the 
power  of  COMPUTEl's  PC  & 
PCjr,  mail  the  coupon  or  the 
postpaid  card  bound  into  this 
issue. 

Act  now  and  you'll  have  ac- 
cess to  powerful  Charter 
Subscriber  savings.  You'll  re- 
ceive 12  issues  for  only  $24 — 
33%  off  the  newsstand  price! 
And  your  satisfaction  is  guar- 
anteed or  we'll  refund  your 
money  on  all  unmailed 
issues. 
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Introducing 
The  Switch  Hitter 


The  computer  compatible  electronic  typewriter  from  Swintec. 


Now  there's  a  full-featured  intelligent  typewriter  that 
can  do  double  office  duty  as  a  letter  quality  computer 
printer .  . .  with  just  the  simple  flick  of  a  key  switch! 

The  1146CMP  electronic  typewriter  from  SWINTEC 
has  built-in  interface  capabilities  which  allow  it  to 
function  with  virtually  any  computer.  The  computer 
compatible  capability  of  the  1146CMP  makes  it 
possible  for  your  computer  to  perform  word  proces- 
sing and  print-out  functions  easily, 

As  a  typewriter,  the  1 1 46CMP  has  all  the  electronic 

features  needed  for  effi-  ^ 

cient  typing:  46  characters 
of  correction  memory,  a 
relocation  key  for  quick 
positioning  after  correct- 
ing, automatic  paper 
feed,  both  f onward  and 
reverse  indexing,  and 
repeat  capability  on 
all  keys. 
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Best  of  all,  the  1146CMP  is  extremely  easy  to  use. 
No  special  training  is  required  to  perform  either 
typing  or  word  processing  operations.  And  the 
11 46  CMP  is  available,  complete  with  computer 
interface,  for  under  $600. ' 

The  computer  is  basic  to  the  fully  automated  office; 
SWINTEC  computer  compatible  typewriters  bring 
office  integration  one  step  nearer. 


Switch  to  SWINTEC. 


I  want  to  know  more  about  the  SWINTEC  1 146CMP 

D  Send  me  more  information 

D  Have  a  SWINTEC  dealer  contact  me 


NAME 

TITLE 

COMPANY 

ADDRESS 

CITY 

STATE 

Z[P 

TELEPHONE 

.and  get  our  Switch  Hitter 
on  your  team. 


"Also  available  as  1 146CM,  without 
interface,  at  an  even  lower  price 


swintec. 

CORPORATION 

23  Poplar  Street 

East  Rutherford,  NJ  07073 

800/225-0867 


some  analog,  rather  than  digital, 
biologically  based  microchips. 

O'Neill:  You  have  to  be 
careful  about  that,  because  one 
of  the  things  we've  discovered 
about  genetic  hardware  is  that 
when  you  really  get  down  to 
the  level  of  the  way  that  cells 
work,  they  are  binary,  they  are 
digital.  They  are  not  analog  de- 
vices. The  numbers  of  neurons 
acting  and  so  on  get  to  be  big 
enough  so  that  you  can  see 
what  appear  to  be  analog  sig- 
nals, but  when  you  really  get 
down  to  the  level  of  how  any 
living  organism  works,  it  is  a 
very  mechanistic  system  which 
is  much  more  digital  than 
analog.  And  the  way  the  genes 
and  the  various  templates  fit  to- 
gether in  genetics  is  a  very  rigid, 
very  digital  structure. 

So,  1  think  we'll  be  follow- 
ing a  dead  end  if  we  think  that 
by  kind  of  retreating  to  analog 
type  systems  we've  somehow 
improved  our  chances  of  going 
into  artificial  intelligence.  I  don't 
think  that's  where  the  key  is. 
But  the  notion  that  you  don't  do 
things  in  a  linear,  serial  fashion, 
but  that  you  do  them  in  an  as- 
sociative fashion,  with  all  kinds 
of  branches — that  is  funda- 
mental to  artificial  intelligence. 

C!:  Do  you  think  we'll  see 
the  widespread  use  of  domestic 
or  personal  robots  in  American 
homes  in  the  next  20  years? 

O'Neill;  I  think  so.  It's 
much  more  likely  that  the  first 
practical  household  robot  will 
grow  out  of  hobbyist  activities 
than  that  it  will  grow  out  of  the 
activities  of  some  large  orga- 
nized company.  It's  the  sort  of 
thing  that's  going  to  take  some 
fanatic  working  in  a  basement 
or  garage  to  do  right. 

C!:  What  forms  will  these 
robots  have? 

O'Neill:  It's  really  a  ques- 
tion of  where  the  market  is.  If 
you  look  at  robots  so  far,  if  you 
had  to  try  to  characterize  the 
successful  Ones  in  a  single  sen- 


tence, you  would  say  that  they 
are  mechanical  single  arms.  The 
next  step  is  probably  some  de- 
gree of  mobility.  But  I  would 
guess,  to  be  quite  honest,  that 
they  are  going  to  turn  out  to  be 
applications  of  robotics  that 
don't  really  stretch  the  art  at  all, 
that  will  have  a  profound  im- 
pact on  markets.  For  example, 
if  you  take  something  like  a 
McDonald's  hamburger  place, 
and  put  relatively  low-level  in- 
dustrial robots  in  there,  you 
may  do  a  better  job  of  making 
hamburgers. 

C!:  What's  the  status  of 

your  Space  Studies  Institute? 

O'Neill:  I  forget  offhand 


I  t's  the  sort  of 
thing  that's  going 
to  take  some 
fanatic  working  in 
a  basement  or 
garage  to  do 
right." 


the  number  of  months  in  which 
its  membership  has  doubled. 
But  it's  growing  rapidly. 

The  Institute  is  just  re- 
ceiving now  the  results  of  a 
two-year  study  that  was  carried 
out  under  SSI  (Space  Studies 
Institute)  funding  by  Rockwell 
International  on  the  chemical 
processing  of  lunar  soil.  This  is 
the  first  time  that  the  actual  wet 
chemistry  has  really  been 
done — where  people  have  put 
chemicals  in  test  tubes.  And  that 
has  come  out  very  favorably. 

The  mass-driver  research, 
which  was  also  Institute  funded, 
has  now  progressed  so  well  that 
it  has  now  gone  into  a  computer 
phase.  The  mass-driver-three 


design  was  basically  worked  out 
on  an  Apple  computer.  And 
then  through  that  computer- 
aided  design,  the  mass-driver- 
three  model  was  built.  It  obeyed 
the  CAD/CAM  (computer-aided 
design/computer-aided  manu- 
facture) design  within  one  per- 
cent. The  next  phase  is  to  go 
back  to  the  computer  and  say, 
OK,  now  that  you've  had  this 
cross-check,  let's  go  ahead  and 
design  a  complete  lunar  catapult. 

C!:  Do  you  still  see  a  mass- 
driver  as  the  best  vehicle  for 
movement  of  materials  in  set- 
ting up  the  first  space  colony? 

O'Neill:  Absolutely.  It's 
going  so  well  that  it's  not  ex- 
pensive for  us  right  now  be- 
cause we're  not  having  to  build 
an  elaborate  test  model.  We've 
done  that. 

CI:  When  do  you  estimate 
that  it  will  be  feasible? 

O'Neill:  We  have  some 

rather  close  estimates  on  that 
because  the  Institute  is  on  a 
five-year  research  program, 
which  by  coincidence  will  con- 
clude in  1987.  At  that  time  we 
expect  to  have  an  overall  plan 
to  publish  which  will  have 
every  essential  technical  build- 
ing block  for  space  industry  at 
least  to  the  benchtop  or  pilot 
plan  stage  of  application.  And 
then  to  go  from  there  to  the 
point  of  economic  productivity 
is  roughly  a  five-year  program. 
When  that  five-year  program 
begins,  of  course,  depends  on 
when  somebody  buys  into  it  to 
the  level  of  funding  that  will  be 
needed. 

There  is  a  new  research 
program  of  the  Institute  within 
that  five-year  plan,  and  we're 
just  about  to  award  the  contract 
for  it  now.  And  that  will  be  for 
the  design  of  a  solar-powered 
satellite  specifically  to  be 
manufacturable  out  of  lunar  ma- 
terials. That's  never  been  done 
before  and  obviously  needs  do- 
ing. And  the  Institute  has  the 
money  accumulated  from  its 
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members  and  its  Senior  Asso- 
ciates to  do  that  work  and  has 
gotten  the  bids  in  for  it  and  is 
just  about  to  award  a  contract. 

C!:  Despite  the  explosion  in 
high  technology  we're  experi- 
encing, our  space  program 
seems  to  have  a  lower  national 
visibility  now  than  in  past  years. 
Why  is  that,  and  what  does  it 
mean  for  the  future? 

O'Neill:  I  think  it's  a  cor- 
rect perception  that  the  national 
awareness  of  it  has  decreased. 
Although  interestingly  enough, 
all  of  the  surveys  that  have 
been  done  indicate  that  the  na- 
tional support  for  a  strong  space 
program  is  broader  based  now 
than  it  ever  was  before.  I  think 
the  reason  that  it's  in  low  visi- 
bility is  that  there  is  no  really 
very  exciting  program  that 
NASA  has.  And  we  regard  the 
work  that  we're  doing  as  essen- 
tially independent  of  NASA,  al- 
though the  Institute's  work  is 
clearly  based  on  taking  all  of 
the  technology  that  has  been 
developed  in  the  first  25  years 
of  the  space  program  and  is 
being  developed  right  now. 

C!:  Is  the  most  exciting 
work  being  done  by  private 
companies? 

O'Neill:  Well,  I'm  a  highly 
biased  source.  I  think  the  most 
significant  thing  going  on  is  the 
research  that  the  Institute  is 
funding.  That's  why  we're  doing 
it.  If  we  thought  there  was 
something  else  that  had  higher 
potential  payoff,  that's  what 
we'd  be  doing. 

C:  When  you  first  began 
advocating  colonies  in  space  15 
years  ago  or  more,  you  had  a 
certain  view  of  the  potential  it 
would  have  and  how  quickly  it 
might  come  about.  Has  that 
changed  at  all? 

O'Neill:  No,  it  really  hasn't 
changed.  The  main  difference  is 
that  I  thought  of  it  then  as  natu- 
rally a  governmental  program 
because  the  scale  of  funding 
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that  was  required  appeared  to 
be  very  big.  As  the  result  of, 
first,  the  five  years  or  so  of 
work  that  I  did  on  my  own,  and 
then  the  ten  years  of  work  that 
has  been  done  with  a  lot  of 
people  involved,  it  all  looks  a 
lot  simpler  and  a  lot  smaller  in 
scale  than  it  did  15  years  ago. 
Now  it  looks  as  if  the  action 
program  to  move  out  into  space 
and  use  the  energy  and  materi- 
als there  in  a  productive  way  is 
probably  a  seven  or  eight  billion 
dollar  program  instead  of  a  200 
billion  dollar  program.  So  it's  in 
the  scale  of  projects  which  have 
been  privately  financed.  And  1 
think  that  sometime  in  the  late 
1980s,  there  could  be  some  very 
exciting,  creative  new  develop- 
ments in  putting  together  a  fi- 
nancial package  of  that  kind 
which  1  would  think  of  as  prob- 
ably being  done  on  a  consor- 
tium basis  by  a  number  of 
companies. 

Although  most  people  are 
not  aware  of  it,  the  long-term 
result  of  the  developments  of 
the  kind  that  the  Space  Studies 
Institute  has  been  supporting  is 
obviously  human  habitation  in 
space  and  the  movement  out 
onto  the  high  frontier.  There 
has  been  since  last  October  a 
very  nice  exhibit  on  that  subject, 
which  is  easily  accessible; 
namely,  the  General  Electric 
Horizons  Pavilion  down  at  the 
Epcot  Center  in  Disney  World. 
That's  about  a  70  or  80  million 
dollar  exhibit  with  a  fantastic 
ride  through  four  communities 
of  the  future.  And  the  one  that 
gets  the  lion's  share  of  the  at- 
tention and  the  time  is  the  space 
colony,  which  is  very  accurately 
based  on  blueprints  that  were 
supplied  to  General  Electric  and 
to  the  Disney  Enterprises  by  the 
Space  Studies  Institute.  So, 
people  who  want  to  see  in  a 
very  easy  way  in  a  few  minutes 
what  the  long-term  potential  is 
there,  should  go  and  visit  the 
Horizons  Pavilion,  And  I  sure 
hope  they  would  come  out  of  it 
wanting  to  support  SSI. 


C!:  Do  you  think  you  will 
ever  go  into  space? 

O'Neill:  [Laughs]  Sure 
hope  so. 

C!  You  have  a  reputation  as 
a  scientist  and  as  a  writer;  as 
someone  with  an  ability  to  see 
through  to  the  core  of  a  prob- 
lem or  an  opportunity  .... 

O'Neill:  I'm  glad  you  see  it 
that  way.  Not  everybody  has 
been  that  kind  [laughs]. 

C!:  How  do  you  handle  the 
inevitable  frustrations  that  occur 
when  the  pace  of  advancement 
lags,  say,  in  space  exploration? 

O'Neill:  I  don't  think  that 
it  bothers  me  very  much  as  long 
as  I  feel  that  I'm  taking  produc- 
tive action  to  make  things  hap- 
pen as  fast  as  possible,  rather 
than  trying  to  fight  with  a  gov- 
ernmental system  which  is  fun- 
damentally pretty  unresponsive, 
i  just  find  it  very  much  more  re- 
warding, in  terms  of  personal 
satisfaction,  to  be  a  part  of  the 
Institute's  effort.  We're  doing  it 
on  our  own. 

C!:  In  The  Technology  Edge, 
you  put  a  great  deal  of  empha- 
sis on  the  fact  that  the  U.S.  is 
going  to  have  to  compete  to 
stay  in  the  lead  .... 

O'Neill:  Absolutely. 

C!:  Yet,  at  the  same  time,  I 
sense  that  you  have  a  feeling 
that  international  cooperation  is 
desirable  in  the  long  run  both 
technologically  and  economi- 
cally. How  can  we  achieve  both 
of  those  goals? 

O'Neill:  It's  a  good  ques- 
tion. The  best  thing,  of  course, 
is  always  to  go  by  historical  ex- 
ample. Most  of  the  important 
openings  up  of  economic  oppor- 
tunity, the  exploitation  of 
economic  opportunity,  have  oc- 
curred in  a  competitive  fashion 
either  privately  or  govern- 
mentally.  And  the  space  pro- 
gram is  a  classic  example  of 
that,  even  to  the  point  where  in 
Japan  there  are  two  different, 
competing  space  programs. 


Biochips: 


A  Revolution  In  The  Making 

SelDy  Bateman.  Features  Editor 


The  silicon  chip — the  wafer-thin  foundation  of 
the  computer  world — may  someday  be  replaced 
bij  a  microscopic  organic  "biochip."  Based  on 
today's  pioneering  work  in  biotechnology,  the 
biochip  would  be  far  smaller,  faster,  and  more 
powerful  than  its  silicon  predecessor. 


In  the  not  too  distant  future,  Silicon  Valley 
may  have  to  change  its  name  to  Protein 
Valley. 

There's  still  plenty  of  time  to  work  out 
the  details  of  the  name  change.  But  there 
are  already  indications  that  the  limitations  of 
silicon-based  transistors  will  drive  the  com- 
puter industry  to  a  more  effective  and 
potentially  more  powerful  technology.  And 
a  few  biophysicists  and  electronics  engineers 
are  betting  that  the  eventual  winner  will  be 
in  organic  molecules  manipulated  to  form 
superefficient  microchips. 

Microscopic  Switches 

In  essence,  these  biochips  would  be  micro- 
scopic switches  which  would  transmit  elec- 
trical impulses  in  much  the  same  way  that 
silicon-based  chips  operate  today.  The  work 
is  now  in  its  earliest  stages,  and  there  are 
many  who  are  skeptical  of  the  long-range 
practicality  of  such  technology.  But  small 
groups  of  optimistic  entrepreneurs  are 
spending  millions  of  dollars  on  research  to 
demonstrate  the  feasibility  of  the  idea. 

"The  prospects  for  support  are  excellent 
both  from  the  government  and  the  civilian 
sector/'  says  biophysicist  James  H.  McAlear, 
whose  Centronix  Laboratories  is  a  leader  in 
the  field. 

McAlear  and  partner  John  M.  Wehrung, 
an  electronics  engineer,  have  already  dis- 
cussed possible  applications  for  bio- 
molecular  electronics  with  officials  at  the 
Pentagon  and  the  United  States  Information 
Agency  (USIA). 

Heavy  Traffic 

Why  even  consider  abandoning  the  silicon 
chip? 

One  major  reason  stems  from  the  amaz- 
ing pace  of  technological  change  in  the  com- 
puter field.  As  computer  chips  have  evolved. 


they  have  rapidly  gotten  smaller  and  less 
expensive.  At  the  same  time,  the  number  of 
operations  required  per  chip  has  leapfrogged 
upward. 

A  microchip  itself  is  little  more  than  a 
grid  of  silicon  tracks — sophisticated  electrical 
relays — through  which  current  flows  or 
doesn't  flow  depending  on  what  operations 
are  being  performed.  The  problem  with  sili- 
con chips  develops  when  more  and  smaller 
tracks  are  crammed  onto  a  chip.  At  a  certain 
point,  the  electrons  racing  along  these  paths 
begin  to  adversely  affect  each  other  in  what 
is  called  cross-talk.  The  circuitry  is  also 
prone  to  overheat  as  the  electrons  start  to 
lose  energy  during  their  travels. 

Theoretically,  organic  molecules  and 
specially  developed  proteins  would  offer 
none  of  these  problems.  They  could  also  be 
manipulated  to  create  the  on-or-off,  binary 
gates  that  form  the  basis  of  today's  digital     ..^, 
computers.  ^ 

Practical  applications  are  likely  to  in- 
clude products  ranging  from  erasable  laser 
disks  to  molecular  memory  devices,  for 
example.  But  the  first  applications  ma)'  well 
be  in  sensing  devices. 

"Noses  On  A  Chip" 

"Noses  on  a  chip"  is  what  Daniel  Hillis  calls 
these  sensing  devices  of  the  future.  Hillis 
heads  an  artificial  intelligence  company  in 
the  Cambridge,  Massachusetts,  area  that  is 
also  rumored  to  be  working  on  research  re- 
lated to  biochip  technology, 

"Chemo-detectors  will  be  the  first  area 
of  practical  application  for  biochips,"  he  says. 
"A  chemical  detector  is  basically  for  smelling. 

"For  instance,  imagine  if  your  wrist- 
watch  warned  you  when  you  needed  to  take 
a  shower  because  you  smell  funny,"  he  says. 

The  biotechnology  industry  has  so  far 
achieved  its  greatest  visibility  through  such 
recent  microengineering  feats  as  genetic 
cloning.  But  over  the  riext  decade — with 
technological  advances  expected  to  continue 
at  their  frenetic  pace — biomolecular  research 
on  computer  microchips  and  spin-off 
applications  will  likely  achieve  both  in- 
creased popular  awareness  and  financial 
backing. 
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So,  let's  say  we  open  up  the 
opportunity  for  magnetic  flight 
systems.  I  think  you're  going  to 
find  competitive  construction  of 
magnetic  flight  systems  in  a 
number  of  different  countries 
and  by  different  companies 
within  the  same  country.  All  it 
takes  is  for  the  opportunity  to 
be  perceived,  and  everybody 
wants  to  jump  in. 

The  same  thing  is  going  to 
happen  in  light  aircraft  con- 
struction. The  same  thing  is 
going  to  happen  in  space.  So  I 
don't  see  it  as  being  an  orderly 
international  cooperative  pro- 
gram to  move  in  a  logical  fash- 
ion into  space.  It's  going  to  be  a 
disorderly,  helter-skelter,  com- 
petitive thing.  It's  just  the  way 
human  beings  do  things.  And 
oddly  enough,  it's  probably  the 
most  effective  way.  Part  of  the 
reason  for  that  is  that  very  large 
structures  tend  to  be  inefficient 
and  bureaucratic  by  their  very 
nature.  1  have  seen  international 
cooperative  organizations  in  sci- 
ence working,  and  they  are 
some  of  the  worst  bureaucracies 
you  could  ever  find.  Groups  of 
impassioned  young  scientists 
working  away  to  try  to  make 
something  happen  are  far 
inore  effective  per  dollar  spent 
than  these  huge  cooperative 
international  programs.     . 

On  the  other  hand,  there 
are  certainly  examples  interna- 
tionally of  operations  which  are 
generally  perceived  as  useful, 
and  so  naturally  worldwide  in 
scope,  that  they  do  become  ef- 
fective international  programs 
which  cross  all  ideological 
boundaries.  Intelsat  is  one  ex- 
ample of  that. 

Where  could  that  sort  of 
thing  happen  again?  I  would 
guess  that  there  would  be  co- 
ordination in  setting  up  solar 
power  satellites  in  synchronous 
orbit;  coordination  to  minimize 
interference  with  radio  systems 
and  so  on.  1  would  not  expect 
that  it  would  go  to  the  point 
that  all  the  solar  power  satellites 
would  be  built  by  the  same  en- 
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tity.  I  think  there  would  be  a 
number  of  different  competing 
entities  from  different  countries 
making  them.  The  saving  grace 
is  that  solar  power  satellites  are 
fundamentally  a  peaceful 
technology, 

C!:  What  kind  of  support 
are  you  finding  for  Geostar? 

O'Neill:  It's  been  very  posi- 
tive so  far.  All  the  heads  are 
nodding  together.  Many,  many 
industries  have  come  to  us  and 
said  that  we  are  going  to  help 
them  a  lot.  In  fact,  it's  amusing. 
Many  industries  knock  on  our 
door,  and  the  guys  come  in  and 
say,  "How  did  you  know  to  de- 
sign a  system  that  is  exactly 


T 


he  saving 
grace  is  that  solar 
power  satellites 
are  fundamentally 
a  peaceful 
technology." 


what  we've  been  looking  for?" 
The  land  transportation  in- 
dustry, trucking  companies, 
police  departments,  fire  depart- 
ments, taxi  services  .... 

C!:  And  in  the  long  run? 

O'Neill:  In  the  long  run, 
anybody. 

C!;  You  have  already  com- 
pleted mountaintop  and  air- 
plane emulations  of  the  Geostar 

satellite  functions.  What's  the 
timetable  for  the  actual  satellite? 

O'Neill:  So  far,  the  com- 
pany has  met  all  of  its  mile- 
stones. We  are  looking  to  begin 
service  to  the  entire  continental 
United  States  in  1987. 


One  of  the  most  critical 
items  for  that  is  the  issuance  by 
the  Federal  Communications 
Commission  of  what's  called  a 
"notice  of  proposed  rule- 
making," which  would  allocate 
the  spectra  for  the  Geostar  ser- 
vice. And  that  is  going  very 
w'ell.  There's  a  very  strong  pos- 
sibility that  something  impor- 
tant will  have  happened  in  that 
area  even  before  your  magazine 
comes  out. 

The  development  of  the 
transceivers  actually  takes  just 
about  as  long  as  the  develop- 
ment time  for  the  satellites 
themselves.  It's  a  different  kind 
of  technical  task,  but  the  time 
scales  are  about  the  same. 

C!:  What  types  of  services 
will  Geostar  provide? 

O'Neill:  In  aviation,  the 
kinds  of  services  that  would  be 
provided  would  be,  for  example, 
positioning,  very  accurately — on 
the  order  of  meters.  We  can 
technically  provide  what's  called 
radio  location,  which  means 
feeding  back  the  location  of  a 
vehicle  or  an  aircraft  to  a  fleet 
dispatch  headquarters.  We  can 
provide  for  aircraft  terrain 
avoidance,  because  we  will  have 
the  stored  terrain  map.  So  if  we 
see  an  aircraft  heading  toward  a 
TV  tower  or  a  mountain,  we 
will  be  feeding  warnings  to  the 
pilot  at  the  time. 

There  would  be,  of  course, 
a  two-way  digital  message  ser- 
vice, all  provided  through  the 
same  device.  And  you  could 
send  a  message  from  any  trans- 
ceiver to  any  other  transceiver 
with  a  typical  delay  of  about 
six-tenths  of  a  second.  And 
lastly,  it  is  also  an  emergency 
warning  system,  because  the 
ground  station  computer  will  be 
tracking  aircraft.  And  if  you  see 
an  aircraft  which  is  heading  to- 
ward a  collision  with  terrain, 
first  of  all,  you'll  be  sending 
warnings,  automatically  gener- 
ated by  the  computer,  and  if  the 
aircraft  does  crash,  you  will  rec- 
ognize the  fact  from  several 


confirming  sources.  And  that's 
important,  because  the  so-called 
emergency  locating  transmitters 
(ELT)  that  are  now  federally 
mandated  and  carried  by  aircraft 
have  a  horrendous  false  alarm 
rate — approximately  98  percent 
of  all  ELT  firings  are  false 
alarms. 

C!:  How  does  Geostar  fit  in 

among  the  six  high-tech  fields 
you  discuss  in  The  Technology 
Edge? 

O'Neill:  Weil,  the  six  tech- 
nology areas  that  I  identified  as 
being,  in  my  judgment,  places 
where  there  is  the  biggest 
opportunity  for  major  new  mar- 
kets up  in  the  tens  or  hundreds 
of  billions  of  dollars  a  year — 
things  that  would  really  make  a 
difference  on  a  worldwide  scale 
of  competition — really  divide 
themselves  into  two  halves.  The 
first  three  are  things  that  people 
feel  they  know  all  about,  al- 
though they  really  don't  as  I 
tried  to  point  out  in  the  book. 
There  are  a  lot  of  things  that 
people  didn't  realize.  The 
microengineering — which  covers 
all  of  computer  electronics  and 
so  on — the  robotic  area,  and 
what  1  call  genetic  hardware.  In 
the  first  two,  the  battle  has  al- 
ready been  joined  on  a  very 
large  scale. 

The  last  three  of  those  six 
areas  are  particularly  interesting 
to  me  because  they  are  still  up 
for  grabs.  The  first  one  is  mag- 
netic flight — very  high-speed 
transport  in  a  vacuum  under- 
ground using  principles  of  phys- 
ics which  are  in  fact  more  than 
a  hundred  years  old. 

The  fifth  area,  the  possibil- 
ity that  family  aircraft,  light  air- 
craft, might  be  a  new  growth 
market,  in  its  turn  as  big  as 
automobiles  were  60  years  ago, 
is  one  that  is  the  first  place 
where  I  would  see  Geostar  play- 
ing a  role  (in  one  of  those  six 
areas). 

As  we  become  a  more  and 
more  dispersed  society — new 


industries  being  built  not  in  the 
traditional  city  centers  but  often 
small  towns  and  more  and  more 
people  moving  to  settle  in  sub- 
urbs and  small  towns,  as  is  hap- 
pening— you  end  up  more  and 
more  in  a  situation  where  tradi- 
tional transportation  systems — 
which  basically  go  from  city 
center  to  city  center — are  just 
not  very  effective.  If  you  want 
to  go  from  New  York  to  San 
Francisco,  great.  The  airlines  are 
perfectly  set  up  to  do  an  excel- 
lent job  of  that.  But  if  you  want 
to  go  from  some  small-town 
area  to  another  small-town  area, 
which  is  more  and  more  the 
case  these  days  with  business 
travel,  you  don't  get  served  very 
well.  So  the  market  is  there. 

C!:  How  would  Geostar 
have  an  impact  on  aviation? 

O'Neill:  The  way  that 
Geostar  would  affect  aviation  is 
sort  of  generically  the  same  way 
that  it  would  affect  a  number  of 
other  situations  in  life  and  af- 
fairs. The  difference  is  that  in 
aviation,  all  the  needs  come  to- 
gether in  one  place.  The  funda- 
mental thing  is  that  the  Geostar 
transceiver  is  a  very  light, 
simple,  inexpensive  thing, 
which  in  effect  can  run  on 
double-A  cells.  It's  a  goal  which 
the  manufacturers  regard  as  not 
at  all  impossible. 

C!:  How  can  the  U.S.  best 
maintain  its  lead  in  the  area  of 
computer  development? 

O'Neill:  Computer  devel- 
opment, of  course,  falls  into  the 
first  of  those  areas.  It's  one 
where  the  battle  is  already 
joined  and  nobody  has  any  very 
big  lead.  So,  the  opportunities 
for  getting  way  out  in  front  are 
not  as  good  as  they  are  in  those 
last  three  areas. 

In  general,  for  all  of  the 
long-term  big  payoff  develop- 
ments that  I  was  talking  about 
in  The  Technology  Edge,  I  think 
that  the  most  important  single 
change  is  a  relatively  minor  one 


in  the  law,  but  it's  an  important 
one.  And  that  would  be  a 
change  that  would  favor  funnel- 
ing  even  a  small  amount  of 
money  into  long-term  invest- 
ment. Everything  in  our  eco- 
nomic system  and  our  legal 
structure  is  set  up  right  now  to 
favor  relatively  short-term  in- 
vestment. The  venture  capital- 
ists will  tell  you  that  they're  in 
for  the  long  term,  but  from  their 
point  of  view  three  years  is  a 
long  time. 

C!:  Right.  Whereas  the 
Japanese  .... 

O'Neill:  The  Japanese  think 
in  the  decade  or  multidecade 
time  scale.  Now  there  are  a 
number  of  structural  reasons 
about  the  Japanese  economic 
and  political  structure  why  that 
is  possible.  But  rather  than  try- 
ing to  imitate  that,  I  think  that  it 
makes  more  sense  to  do  some- 
thing that  we  already  know 
works  in  American  society,  and 
that  is  simply  to  alter  the  tax 
laws  a  little  bit.  And  the  alter- 
ation I  would  make  is  simply: 
Set  it  up  so  that  if  someone 
makes  an  investment  in  a  com- 
pany .  .  .  and  leaves  his  money 
in  for  a  full,  say  ten  years,  then 
all  of  the  earnings  and  apprecia- 
tion— not  just  the  capital  appre- 
ciation associated  with  that,  but 
the  earnings  from  all  of  it — 
ought  to  be  essentially  untaxed 
for  a  long  period  of  time.  There 
ought  to  be  a  tax  moratorium 
extending  for  at  least  several 
years  on  those  returns.  What 
that  would  do  is  just  to  divert  a 
small  amount  of  the  roughly 
four  billion  dollars  in  venture 
capital  funding,  that  now  is  gen- 
erated, into  long-term  invest- 
ments of  that  kind.  It  wouldn't 
have  to  be  a  whole  lot.  You 
know,  the  difference  between 
one  percent  and  none  is  already 
important.  © 
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The  Automatic  Proofreader 

For  VIC  64  And  Atari 


Charles  Brannon,  Program  Editor 

At  last  there's  a  way  for  your  computer  to  help  you  cl>ecl< 
your  typing.  "The  Autoiitatic  Proofreader"  will  mtike euteriii;^ 
programs  faster,  easier,  and  more  accurate. 


The  strong  point  of  computers  is  that  they  excel  at 
tedious,  exacting  tasks.  So  why  not  get  your  computer 
to  check  your  typing  for  you? 

With  "The  Automatic  Proofreader"  nestled  in 
your  VlC-20,  Commodore  64,  or  Atari  computer,  every 
line  you  type  in  will  be  verified.  It  displays  a  special 
code,  called  a  checksum,  at  the  top  of  the  screen.  The 
checksum,  either  a  number  (VIC/64)  or  a  pair  of  letters 
(Atari),  corresponds  to  the  line  you've  just  typed.  It 
represents  every  character  in  the  line  summed  together. 
A  matching  code  in  the  program  listing  lets  you  com- 
pare it  to  the  checksum  which  the  Proofreader  displays. 
A  glance  is  all  it  takes  to  confirm  that  you've  typed  the 
line  correctly. 

Entering  The  Automatic  Proofreader 

Commodore  (ViC/64)  owners  should  type  in  Program 
1.  Program  2  is  for  Atari  users.  Since  the  Proofreader  is 
a  machine  language  program,  be  especially  diligent. 
Watch  out  for  typing  extra  commas,  or  a  letter  O  for  a 
zero,  and  check  every  number  carefully.  If  you  make  a 
mistake  when  tvping  in  the  DATA  statements,  you'll 
get  the  message  "Error  in  DATA  statements"  when  you 
KUN  the  program.  Check  your  typing  and  try  again. 

When  you've  typed  in  The  Automatic  Proofreader, 
SAVE  it  to  tape  or  disk  at  least  twice  before  rumiiug  it  for 
the  first  time.  If  you  mistype  the  Proofreader,  it  may 
cause  a  system  crash  when  you  first  run  it.  By  SAVEing 
a  copy  beforehand,  you  can  reLOAD  it  and  hunt  for 
your  error.  Also,  you'll  want  a  backup  copy  of  the 
Proofreader  because  you'll  use  it  again  and  again — 
every  time  you  enter  a  program  from  COMPUTE!. 

When  you  RUN  the  Proofreader,  the  program  will 
be  POKEd  safely  into  memory,  then  it  will  activate 
itself.  If  you  ever  need  to  reactivate  it  (RUN/STOP— RE- 
STORE or  SYSTEM  RESET  will  disable  it),  just  enter 
the  command  SYS  886  (VIC/64)  or  PRINT  USR(1536) 
for  the  Atari. 

Using  The  Proofreader 

Now,  let's  see  how  it  works.  LIST  the  Proofreader 
program,  move  the  cursor  up  to  one  of  the  lines,  and 
press  RETURN.  If  you've  entered  the  Proofreader 
correctly,  a  checksum  will  appear  in  the  top-left  corner 
of  your  screen. 

Try  making  a  change  in  the  line  and  hit  RETURN. 
Notice  that  the  checksum  has  changed.  Ail  VIC  and  64 
listings  in  COMPUTE!  now  have  a  number  appended  to 
the  end  of  each  line,  for  example,  :rem  123.  Don't 
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cuter  this  statement.  It  is  just  for  your  information.  The 
rem  is  used  to  make  the  number  harmless  if  someone 
does  type  it  in.  It  will,  however,  use  up  memory  if  you 
enter  it,  and  it  will  cause  the  checksum  displayed  at 
the  top  of  the  screen  to  be  different,  even  if  you  entered 
the  rest  of  the  line  correctly. 

The  Atari  checksum  is  found  immediately  to  the 
left  of  each  line  number.  This  makes  it  impossible  to 
type  in  the  checksum  accidentally,  since  a  program 
line  must  start  with  a  number. 

Just  type  in  each  line  (without  the  printed 
checksum),  and  check  the  checksum  displayed  at  the 
top  of  the  screen  against  the  checksum  in  the  listing. 
If  they  match,  go  on  to  the  next  line.  If  they  don't, 
there's  a  mistake.  You  can  correct  the  line  immediately, 
instead  of  waiting  to  find  the  error  when  you  RUN  the 
program. 

The  Proofreader  is  not  picky  with  spaces.  It  will 
not  notice  extra  spaces  or  missing  ones.  This  is  for 
your  convenience,  since  spacing  is  generally  not  im- 
portant. Occasionally  proper  spacing  is  important,  but 
the  arhcle  describing  the  program  will  warn  you  to  be 
careful  in  these  cases. 

Nobody's  Perfect 

Although  the  Proofreader  is  an  important  aid,  there 
are  a  few  things  to  watch  out  for.  If  you  enter  a  line  by 
using  abbreviations  for  commands,  the  checksum  will 
not  match  up.  This  is  because  the  Proofreader  is  very 
literal:  It  looks  at  the  individual  letters  in  a  line,  not  at 
tokens  such  as  PRINT.  There  is  a  way  to  make  the 
Proofreader  check  such  a  line.  After  entering  the  line, 
LIST  it.  This  makes  the  computer  spell  out  the  abbre- 
viations. Then  move  the  cursor  up  to  the  line  and  press 
RETURN.  It  should  now  match  the  checksum.  You 
can  check  whole  groups  of  lines  this  way.  Atari  users 
should  beware  of  using  ?  as  an  abbreviation  for  PRINT — 
they're  not  the  same  thing  in  the  Proofreader's  eyes. 

The  checksum  is  a  sum  of  the  ASCII  values  of  the 
characters  in  a  line.  VIC  and  64  owners  may  wonder 
why  the  numbers  are  so  small,  never  exceeding  255. 
This  is  because  the  addition  is  done  only  in  eight  bits. 
A  result  over  255  will  roll  over  past  zero,  like  an  odome- 
ter past  99999.  On  the  Atari,  the  number  is  turned  into 
two  letters,  both  for  increased  convenience  and  to  make 
the  Proofreader  shorter.  For  the  curious,  the  letters 
correspond  to  the  values  of  the  left  and  right  nybbles 
added  to  33  (to  offset  them  into  the  alphabet),  this 
number  is  then  stored  directly  into  screen  memory. 

Due  to  the  nature  of  a  checksum,  the  Proofreader 
will  not  catch  all  errors.  Since  1+3  +  5  =  3  +  1  +  5,  the 
Proofreader  cannot  catch  errors  of  transposition.  In 
fact,  you  could  type  in  the  line  in  any  order,  and  the 
Proofreader  wouldn't  notice.  Anytime  the  Proofreader 


seems  to  act  strange,  keep  this  in  mind.  Since  the  ASCII 
values  of  the  number  18  (49  +  56)  and  63  (54  +  51)  both 
equal  105,  these  numbers  are  equal  according  to  the 
Proofreader.  There  really  is  no  simple  way  to  catch 
these  kinds  of  errors.  Fortunately,  the  Proofreader 
will  catch  the  majority  of  the  typing  mistakes  most 
people  make. 

If  you  want  the  Proofreader  out  of  your  way,  just 
press  SYSTEM  RESET  or  RUN/STOP— RESTORE.  If 
you  need  it  again,  enter  SYS  828  (VIC/64)  or  PRINT 
USR(1536)  (Atari).  You  must  disable  the  Proofreader 
before  doing  any  tape  operations  on  the  VIC  or  64. 

Hidden  Perils 

The  Proofreader's  home  in  the  VIC  and  64  is  not  a  very 
safe  haven.  Since  the  cassette  buffer  is  wiped  out  during 
tape  operations,  you  need  to  disable  the  Proofreader 
with  RUN/STOP— RESTORE  before  you  SAVE  your 
program.  This  applies  only  to  tape  use.  Disk  users  or 
Atari  owners  have  nothing  to  worry  about. 

Not  so  for  VIC  and  64  owners  with  tape  drives. 
What  if  you  type  in  a  program  in  several  sittings?  The 
next  day,  you  come  to  your  computer,  LOAD  and 
RUN  the  Proofreader,  then  try  to  LOAD  the  partially 
completed  program  so  you  can  add  to  it.  But  since  the 
Proofreader  is  trying  to  hide  in  the  cassette  buffer,  it  is 
wiped  out! 

What  you  need  is  a  way  to  LOAD  the  Proofreader 
after  you've  LOADed  the  partial  program.  The  problem 
is,  a  tape  load  to  the  buffer  destroys  what  it's  supposed 
to  load. 

After  you've  typed  in  and  RUN  the  Proofreader, 
enter  the  following  lines  in  direct  mode  (without  line 
numbers)  exactly  as  shown: 

A?= ''PROOFREADER. T":    B$="fl0    SPACES}":    FOR 
X   =    1    TO    4:    A?=A$+B5;    NEXTX 

FOR  X  =  886  TO  1018:  A?=A$+CHR$ ( PEEK(X) ) : 

NEXTX 

OPEN  1, 1,1,A$:CL0SE1 

After  you  enter  the  last  line,  you  will  be  asked  to 
press  record  and  play  on  your  cassette  recorder.  Put 
this  program  at  the  beginning  of  a  new  tape.  This  gives 
you  a  new  way  to  load  the  Proofreader.  Anytime  you 
want  to  bring  the  Proofreader  into  memory  without 
disturbing  anything  else,  put  the  cassette  m  the  tape 
drive,  rewind,  and  enter: 

OPENl:CLOSEl 

You  can  now  start  the  Proofreader  by  typing  SYS 
886.  To  test  this,  PRINT  PEEK(886)  should  return  the 
number  173.  If  it  does  not,  repeat  the  steps  above, 
making  sure  that  A$  ("PROOFREADER. T")  contains 
13  characters  and  that  B$  contains  10  spaces. 

You  can  now  reload  the  Proofreader  into  memory 
whenever  LOAD  or  SAVE  destroys  it,  restoring  your 
personal  typing  helper. 

Incidentally,  you  can  protect  the  cassette  buffer  on 
the  Commodore  64  with  POKE  178,251  This  POKE 
should  work  on  the  VIC,  but  it  has  caused  numerous 
problems,  probably  due  to  a  bug  in  the  VIC  operating 
system.  With  this  POKE,  the  64  will  not  wipe  out  the 
cassette  buffer  during  tape  LOADs  and  SAVEs. 


Program  1:  ViC/64  Proofreader 

100  PRINT" {CLR] PLEASE  WAIT . . . " :PORl=886TO 

1018: READA : CK=CK+A : POKEI , A : NEXT 
110  IF  CK<> 17539  THEN  PRINT" {DOWN} YOU  MAD 
E  AN  ERROR" :PRINT"IN  DATA  STATEMENTS. 
":END 
120  SYSe86;PRINT"{CLR} {2  DOWN} PROOFREADER 

ACTIVATED. " : NEW 
886  DATA  173,036,003,201,150,208 
892  DATA  001,096,141,151,003,173 
898  DATA  037,003,141,152,003,169 
904  DATA  150,141,036,003,169,003 
910  DATA  141,037,003,169,000,133 
916  DATA  254,096,032,087,241,133 
922  DATA  251,134,252,132,253,008 
928  DATA  201,013,240,017,201,032 
934  DATA  240,005,024,101,254,133 
940  DATA  254,165,251,166,252,164 
946  DATA  253,040,096,169,013,032 
952  DATA  210,255,165,214,141,251 
958  DATA  003,206,251,003,169,000 
964  DATA  133,216,169,019,032,210 
970  DATA  255,169,018,032,210,255 
976  DATA  169,058,032,210,255,166 
982  DATA  254,169,000,133,254,172 
988  DATA  151,003,192,087,208,006 
994  DATA  032,205,189,076,235,003 
1000  DATA  032,205,221,169,032,032 
1006  DATA  210,255,032,210,255,173 
1012  DATA  251,003,133,214,076,173 
1018  DATA  003 

Program  2:  Atari  Proofreader 

100  GRAPHICS  & 

110  FOR  1=1536  TO  1700:READ  A:POKE  I 

, A:CK=CK+A: NEXT  I 
120  IF  CK<.>19072  THEN  ?  "Error  in  DA 

TA  statements.   Check  typing":END 

A  =  USR  < 1536> 

?  :?  "Automatic  Proo-freader  now 
ated  .  " 


130 
1  40 

150 

1536 

1542 

154B 

1554 

1560 

1566 

1572 

1578 

1534 

1590 

1596 

1602 

1608 

1614 

1620 

1626 

1632 

1638 

1644 

1650 

1656 

1662 

1668 

1674 

1680 

1686 

1692 

1698 


ac  t  i  V 

END 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


104, 160, 0, 135, 26, 3 

201 , 69, 240, 7, 200, 200 

192, 34, 208, 24  3, 96, 200 

169, 74, 153,26,3,200 

169, 6, 153, 26, 3, 162 

0, 139, 0, 228, 157, 74 

6, 23  2, 224, 16, 2  08, 24  5 

169, 93, 14  1 , 78, 6, 169 

6, 141, 79, 6, 24, 173 

4, 228, 105, i , 141 , 95 

6, 173, 5, 228, 1 05 , 0 

14 1 , 96, 6, 1 69, 0, 133 

20  3, 96, 24  7,238, 125,24  1 

93, 6, 244, 241, 115, 24  1 

1 2  4, 241 , 76, 2  05, 2  38,0 

0,0,0,0,32,62 

24  6, 8, 20  1 , 155, 24  0, 13 

20  1 , 32, 240, 7, 72, 24 

101 , 20  3, 133, 203, 104, 4  0 

96, 72, 152, 72, 138, 72 

160,0, 169, 128, 145, 83 

200,  192,40,20  8.249,  165 

203, 74, 74, 74, 74, 24 

105, 161 , 160, 3, 145, 88 

165, 203, 41 , 15, 24, 105 

161, 200, 145, 88, 169, 0 

133, 203, 104, 170, 104, 168 

104, 40. 96 
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A  Beginner's  Guide 
To  Typing  in  Programs 


What  Is  A  Program? 

A  computer  cannot  perform  any  task  by  itself. 
Like  a  car  without  gas,  a  computer  has  potential, 
but  without  a  program,  it  isn't  going  anywhere. 
Most  of  the  programs  published  in  COMPUTE!  are 
written  in  a  computer  language  called  BASIC. 
BASIC  is  easy  to  learn  and  is  built  into  most  com- 
puters (on  some  computers,  you  have  to  purchase 
an  optional  BASIC  cartridge). 

BASIC  Programs 

Each  month,  COMPUTE!  publishes  programs  for 
many  machines.  To  start  out,  type  in  only  pro- 
grams written  for  your  machine,  e.g.,  "TI  Version" 
if  you  have  a  TI-99/4.  Later,  when  you  gain  ex- 
perience with  your  computer's  BASIC,  you  can 
try  typing  in  and  converting  certain  programs 
from  one  computer  to  yours. 

Computers  can  be  picky.  Unlike  the  English 
language,  which  is  full  of  ambiguities,  BASIC 
usually  has  only  one  "right  way"  of  stating  some- 
thing. Every  letter,  character,  or  number  is  signif- 
icant. A  common  mistake  is  substituting  a  letter 
such  as  O  for  the  numeral  0,  a  lowercase  1  for  the 
numeral  1,  or  an  uppercase  B  for  the  numeral  8. 
Also,  you  must  enter  all  punctuation  such  as  col- 
ons and  commas  just  as  they  appear  in  the 
magazine.  Spacing  can  be  important  To  be  safe, 
type  in  the  listings  exactly  as  they  appear. 

Braces  And  Special  Cliaracters 

The  exception  to  this  typing  rule  is  when  you  see 
the.braces,  such  as  {DOWN}.  Anything  within  a 
set  of  braces  is  a  special  character  or  characters 
that  cannot  easily  be  listed  in  a  printer.  When  you 
come  across  such  a  special  statement,  refer  to  the 
appropriate  key  for  your  computer.  For  example, 
if  you  have  an  Atari,  refer  to  the  "Atari"  section 
in  "How  To  Type  COMPUTEl's  Programs." 

About  DATA  Statements 

Some  programs  contain  a  section  or  sections  of 
DATA  statements.  These  lines  provide  informa- 
tion needed  by  the  program.  Some  DATA  state- 
ments contain  actual  programs  {called  machine 
language);  others  contain  graphics  codes.  These 
lines  are  especially  sensitive  to  errors. 

If  a  single  number  in  any  one  DATA  statement 
is  mistyped,  your  machine  could  "lock  up,"  or 
"crash."  The  keyboard,  break  key,  and  RESET  {or 
STOP)  keys  may  all  seem  "dead,"  and  the  screen 
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may  go  blank.  Don't  panic  -  no  damage  is  done. 
To  regain  control,  you  have  to  turn  off  your  com- 
puter, then  turn  it  back  on.  This  will  erase  what- 
ever program  was  in  memory,  so  always  SAVE  a 
copy  of  your  program  before  you  RUN  it.  If  your 
computer  crashes,  you  can  LOAD  the  program 
and  look  for  your  mistake. 

Sometimes  a  mistyped  DATA  statement  will 
cause  an  error  message  when  the  program  is  RUN. 
The  error  message  may  refer  to  the  program  tine 
that  READs  the  data.  The  error  is  still  in  the  DATA 
statements,  though. 

Get  To  Know  Your  Machine 

You  should  familiarize  yourself  with  your  com- 
puter before  attempting  to  type  in  a  program. 
Learn  the  statements  you  use  to  store  and  retrieve 
programs  from  tape  or  disk.  You'll  want  to  save  a 
copy  of  your  program,  so  that  you  won't  have  to 
type  it  in  every  time  you  want  to  use  it.  Learn  to 
use  your  machine's  editing  functions.  How  do 
you  change  a  line  if  you  made  a  mistake?  You  can 
always  retype  the  line,  but  you  at  least  need  to 
know  how  to  backspace.  Do  you  know  how  to 
enter  inverse  video,  lowercase,  and  control  char- 
acters? It's  all  explained  in  your  computer's 
manuals. 

A  Quick  Review 

1.  Type  in  the  program  a  line  at  a  time,  in  order. 
Press  RETUIiN  or  ENTER  at  the  end  of  each  line. 
Use  backspace  or  the  back  arrow  to  correct 
mistakes. 

2.  Check  the  line  you've  typed  against  the  line  in 
the  magazine.  You  can  check  the  entire  program 
again  if  you  get  an  error  when  you  RUN  the 
program. 

3.  Make  sure  you've  entered  statements  in  braces 
as  the  appropriate  control  key  {see  "How  To 
Type  COMPUTEi's  Programs"  elsewhere  in  the 
magazine). 


We  regret  that  we  are  no  longer  able  lo  respond  to 
individual  inquiries  about  programs,  products,  or 
serz'ices  appearing  in  COMPUTE!  due  to  increasing 
publication  activity.  On  those  infi'equent  occasions 
xnhen  a  published  program  contains  a  typo,  t)ie  correc- 
tion zoill  appear  on  the  CAPUTE!  page,  usually  within 
eight  weeks.  If  you  imzv  specific  questions  about  items 
or  programs  Tuhich  you've  seen  in  COMPUTE!,  please 
send  them  to  Readers'  Feedback,  P.O.  Box  5406, 
Greensboro,  NC  27403.  "    © 


How  To  Type  COMPUTEi's  Programs 


Many  of  the  programs  which  are  listed  in  COMPUTE!  contain 
special  control  characters  (cursor  control,  color  keys,  inverse 
video,  etc.).  To  make  it  easy  to  tefl  exactly  what  to  type  when 
entering  one  of  these  programs  into  your  computer,  we  have 
established  the  following  listing  conventions.  There  is  a 
separate  key  for  each  computer,  Refer  to  the  appropriate 
tables  when  you  come  across  an  unusuni  symbol  in  a  program 
listing.  If  you  are  unsure  how  to  actually  enter  a  control 
character,  consult  your  computer's  manuals, 

Atari  400/800 

Characters  in  inverse  video  vviil  appear  like:  DcsaisexiaisBsiio: 
Enter  these  characters  with  the  Atari  logo  key,  {A). 

Utien   you   see  Type  See 


fO-EARJ 

ESC 

SHIFT  < 

K 

Clear  Screen 

{UPJ 

ESC 

CTRL  - 

■r 

Cursor  Up 

{DEMM} 

ESC 

CTRL  - 

* 

Cursor  Down 

tLEFT> 

ESC 

CTRL  t 

*■ 

Cursor  Left 

{RIQHTJ 

ESC 

CTRL  t 

* 

Cursor  Right 

CBACK  S> 

ESC 

DELETE 

* 

Backspace 

CDELETEJ 

ESC 

CTRL  DELETE 

U 

Delete  character 

CINSERTJ 

ESC 

CTRL  INSERT 

U 

Insert  character 

CDEL  LINE3 

ESC 

SHIFT  DELETE 

n 

Delete  line 

tINS  LINE) 

ESC 

SHIFT  INSERT 

a 

Insert  line 

fTABJ 

ESC 

TAB 

* 

TAB  key 

<:C1,R  TAB) 

ESC 

CTRL  TAB 

a 

Clear  tab 

{SET  TftB> 

ESC 

SHIFT  TAB 

a 

Set  tab  stop 

{BELL> 

ESC 

CTRL  2 

a 

Ring  buzzer 

<ESC> 

ESC 

ESC 

t 

ESCape  key 

Graphics  characters,  such  as  CTRL-T,  the  ball  character  •  will 
appear  as  the  "normal"  letter  enclosed  in  braces,  e.g.  f  T). 

A  series  of  identical  control  characters,  such  as  K)  spaces, 
three  cursor-lefts,  or  20  CTRL-R's,  will  appear  as  tlO 
SPACES  (,!  3  LEFT  J,  (20  R),  etc.  If  the  character  in  braces  is 
in  inverse  video,  that  character  or  characters  should  be  en- 
tered with  the  Atari  logo  key.  For  example,  (  n )  means  to 
enter  a  reverse-field  heart  with  CTRL-comma,  ( StnlJ  means  to 
enter  five  inverse-video  CTRL-U's. 

Commodore  PET/CBMA^IC/64 

Generally,  any  PET,'CBM.'VIC/64  program  listings  will  contain 
words  within  braces  which  spell  out  any  special  characters; 
[  DOWN  !  would  mean  to  press  the  cursor  down  key,  1 5 
SPACES  i  would  mean  to  press  the  space  bar  five  times. 

To  indicate  that  a  key  should  be  shifted  (hold  down  the 
SHIFT  key  while  pressing  the  other  key),  the  key  would  be 
underlined  in  our  listings.  For  example,  S  would  mean  to 
type  the  S  key  while  holding  the  shift  key.  If  you  find  an 
underlined  key  enclosed  in  braces  (e.g.,  {10  N)),  you  should 
type  the  key  as  many  times  as  indicated  (in  our  example, 
you  would  enter  ten  shifted  N's).  Some  graphics  characters 
are  inaccessible  from  the  keyboard  on  CBM  Business  models 
(32N,  8032). 

For  the  VIC  and  64,  if  a  key  is  enclosed  in  special  brackets, 
^  '>{,  you  should  hold  down  the  Commodore  kc\i  while  pressing 
the  key  hiside  the  special  brackets.  (The  Commodore  key  is 
the  key  in  the  lower  left  corner  of  the  keyboard.)  Again,  if 
the  key  is  preceded  by  a  number,  you  should  press  the  key 
as  many  hmes  as  indicated. 

Rarely,  you'il  see  in  a  Commodore  64  program  a  solitary 
letter  of  the  alphabet  enclosed  in  braces.  These  characters 
can  be  entered  by  holding  down  the  CTRL  key  while  typing 
the  letter  in  the  braces.  For  example,  {A }  would  indicate  that 
you  should  press  CTRL-A. 

About  the  quote  mode:  you  know  that  you  can  move  the 
cursor  around  the  screen  with  the  CRSR  keys.  Sometimes  a 
programmer  will  want  to  move  the  cursor  under  program 
control.  That's  why  you  see  all  the  (LEFTl's,  (HOME}'s, 
and  ( BLU  }'s  in  our  programs.  The  only  way  the  computer 


can  tell  the  difference  between  direct  and  programmed  cursor 
control  is  the  quote  mode. 

Once  you  pres.s  the  quote  (the  double  quote,  SHlFT-2), 
you  are  in  the  quote  mode.  If  you  type  something  and  then 
tr>'  to  change  it  by  moving  the  cursor  left,  you'll  only  get  a 
bunch  of  reverse-video  lines.  These  are  the  symbols  for 
cursor  left.  The  only  editing  key  that  isn't  programmable  is 
the  DEL  key;  you  can  still  use  DEL  to  back  up  and  edit  the 
line.  Once  you  type  another  quote,  you  are  out  of  quote  mode. 

You  also  go  into  quote  mode  when  you  INSerT  spaces 
into  a  line.  In  any  case,  the  easiest  way  to  get  out  of  quote 
mode  is  to  just  press  RETURN,  You'll  then  be  out  of  quote 
mode  and  you  can  cursor  up  to  the  mistyped  line  and  fix  it. 

Use  the  following  tables  when  entering  special  characters: 


VIC  And  64 

When  You 


Read: 

ICLR} 

(home) 

(UP) 

(down) 

I  LEFT  j 

(right) 

(RVS) 
(OFF  J 
(BLKJ 
(WHTJ 
(RED) 
(CYN) 
(PURj 


Press: 


See: 


CLR/HOME 


CLRiHOME 


J^±\ 


TcrsrJJO 


SHTFT 


^CRSR^ 


CTRL 

9 

CTRL  j 

0 

CTRL 

1 

CTRL 

2 

CTRL 

J 

CTRL 

i 

CTRL 

!  ' 

When  You 

Read:        Press:     See: 

Igrn) 

(BLUl 

[YELl 

IFI} 

(F2) 

fF3) 

(F4) 

(F5) 

(F6) 

lF7] 

(F8j 

t 


CTRL  1   h 

CTRL     7 

CTRL     8 

i\ 

(2 

(3 

U 

f5 

.    t 

(7 

fs 

SHIFT    ^ 

All  Commodore  Machines 

Clear  Screen    (CLR) 
Home  Cursor  (  HOME) 
Cursor  Up        (UP) 
Cursor  Down  {  DOWN ) 
Cursor  Right  {RIGHT} 


Cursor  Left  (LEFT) 

Insert  Cliatacter     {INST) 
Delete  Character   {DEL} 
.Reverse  Field  On  {  rvs  ) 
Reverse  Field  Off  {  OFF ) 


Apple  II  /  Apple  1)  Plus 

All  programs  are  in  Applesoft  BASIC,  unless  otherwise 
stated.  Control  characters  are  printed  as  the  "normal"  char- 
acter enclosed  in  braces,  such  as  I  D 1  for  CTRL-D.  Hold 
down  CTRL  while  pressing  the  control  key.  You  will  not  see 
the  special  character  on  the  screen. 

Texas  Instruments  99/4 

The  only  special  characters  used  are  in  PRINT  statements  to 
indicate  vvhere  two  or  more  spaces  should  be  left  between 
words.  For  example,  ENERGY  (10  SPACES}  MANAGE- 
MENT means  that  ten  spaces  should  be  left  between  the 
words  ENERGY  and  MANAGEMENT.  Do  not  type  in  the 
braces  or  the  words  10  SPACES.  Enter  all  programs  with  the 
ALPHA  LOCK  on  (in  the  down  position).  Release  the  ALPHA 
LOCK  to  enter  lowercase  text. 
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You  and  uour  inmmdes  approach  the  hosfilc  Dev- 
astator— rt  poiL'tvlul  mothership  reaiii/  to  deslroy 
Earth.  Out  of  lurivhcrc,  guardian  ships  attack.  You 
have  30  seconds  to  destroy  all  of  them—or  else 
Earth  is  destroyed.  Written  for  the  unexpanded  VIC, 
versions  are  also  included  for  the  64,  Color  Com- 
puter, TJ-99/4A,  Apple  11,  and  IBM  PC  and  PCjr. 
Joystick  required  for  all  versions  except  VIC 
(optional). 

"Devastator"  is  an  action  game  where  you  must 
save  Earth  from  aliens.  What  makes  it  different 
from  similar  games  is  that  when  you  fail.  Old 
Terra  Firma  is  destroyed  before  your  eyes. 

You  and  your  comrades  are  in  one-man 
spaceships  skimming  the  surface  of  a  huge  alien 
craft  known  as  Devastator.  Suddenly,  out  of 
nowhere,  guardian  ships  appear,  darting  and 
dodging  swiftly,  causing  havoc  among  your  ranks. 
Blast  them  by  lining  up  your  cross  hairs  with  the 
center  of  the  spaceships  and  pressing  the  fire  but- 
ton. You  have  a  mere  30  seconds  to  destroy  ten 
ships  before  Devastator  annihilates  Earth  with  a 
death  bolt. 

The  VIC  Programs 

This  program  is  written  in  two  parts  because  of 
the  limited  memory  in  an  unexpanded  VIC-20. 
Program  1  gives  the  instructions  and  customizes 
the  characters.  Be  sure  to  save  Program  1  before 
you  run  it.  However,  if  you  wish  to  view  Program 
1  before  saving  it,  temporarily  add  the  line  295 
END.  After  you  type  in  Program  2,  save  it  with 
the  name  D.  (For  tape,  be  sure  to  save  it  im- 
mediately following  Program  1.)  Lines  305  and 
310  of  Program  1  will  then  cause  Program  2  to 
load  and  run  automatically. 

The  second  program  is  the  actual  game.  If 
you  hit  RUN/STOP  and  RESTORE  anytime  during 
the  second  program,  you  must  type  POKE 
36869,255 — no  line  number  is  needed — to  play 
the  game  again.  This  is  the  location  of  the 
customized  characters. 

Devastator  is  played  with  a 
joystick  simply  for  ease  of  use. 
However,  if  you  want  to  usi^ 
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the  keyboard,  you  can  substitute  the  following 
lines  in  Program  2: 

1000    IFPEEK(197)=17THENR=R--22 

1005  IFPEEK{197)=33THENR=R+22 

1010  IFPEEK(197)=28THENR=R-1 

1015    IFPEEKC197)=36THENR=R+1 

1110    P0KEL+R,219:IFPEEK(197) 0  32THEN1128 

Delete  lines  1016-1022. 

The  difficulty  level  of  this  game  can  be 
changed  by  subtracting  or  adding  time  in  line 
140,  or  by  increasing  or  decreasing  the  number  of 
points  for  ships  hit  (SC)  in  line  2000.  (Each  ship  is 
worth  ten  points.)  You  can  also  make  the  ships 
harder  to  hit  by  changing  the  9  in  line  500  to  a 
higher  number. 

Here  is  an  explanation  of  Program  2: 

Line 

0  Variables. 
20  Print  Earth  and  stars. 
70  Print  first  screen  of  Devastator. 
160  Print  second  screen  of  Devastator. 
250  Print  third  screen  of  Devastator. 
350  Print  fourth  screen  of  Devastator. 
500  Subroutine  to  print  ships. 
800  Subroutines  for  sound,  joystick,  and  cross  hairs. 
1120  PEEK  hit  of  a  guardian  ship. 
1800  Subroutines  for  printing  saucers. 
2000  Decide  win  or  loss. 
2005  Routine  for  loss. 
2040  "Play  again"  option. 
3000  Routine  for  win. 

Both  of  these  programs  use  a  lot  of  memory, 
so  don't  add  extra  spaces. 


Looks  like  a  Ferrari. 
Drives  like  a  Rolls. 
Parks  like  a  Beetle. 


Ask  your  computer  dealer 

to  take  the  cover  off  a  world-class  disk  drive. 

Theall  new,  1984  Indus  GT™ 

The  most  advanced,  most  handsome  disk 
drive  in  the  world. 

A  flick  of  its  power  switch  can  turn  an  Atari 
into  a  Ferrari. 

Or  an  Apple  into  a  Red  Hot  Apple. 

Looks  like  a  F\errari. 

The  Indus  GT  is  only  2.65"  high.  But  under  its 
front-loading  front  end  is  slimline  engineering 
with  a  distinctive  European-Gran  flair. 

Touch  its  LED-litCommandPost™  function 
control  AccuTouch'^"  buttons.  Marvel  at  how 
responsive  it  makes  every  Atari  or  Apple  home 
computer. 

Drives  like  a  Rolls. 

Nestled  into  its  soundproofed  chassis  is  the 
quietest  and  most  powerful  disk  drive  power  sys- 
tem money  can  buy.  At  top  speed,  ifs  virtually 
unbearable.  Whisper  quiet. 

Flat  out,  the  GT  will  drive  your  Atari  track-to- 
track  0-39  in  less  than  one  second.  Increasing 
data  transfer  400%.  (Faster  than  any  other  drive. 
And  as  fast  as  any  Apple  disk  drive.) 


And  each  GT  comes  with  the  exclusive 
G7  DrivingSystem'"*  of  software  programs.* 
World-class  word  processing  is  a  breeze  with 
theCr  Estate  WordProcessor™  And  your  dealer 
will  describe  the  two  additional  programs  that 
allow  GT  owners  to  accelerate  their  computer 

driving  skills. ''"'  lu(li>tl.iisl,in{i.ir(i«,|uipmi.>nl. 

Also,  the  1984  Indus  GT  is  covered  with  the 
CTPorfaCase.™  A  stylish  case  that  conveniently 
doubles  as  a  80-disk  storage  file. 

Parks  like  a  Beetle. 

The  GT's  small,  sleek,  condensed  size  makes  it 
easy  to  park. 

And  its  low  price  makes  it  easy  to  buy. 

$449  for  Atari.  $329  for  Apple. 

So  see  and  test  drive  the  incredible  tiew  1984 
Indus  GT  at  your  nearest 
computer  dealer  soon. 

The  drive  will  be 
well  worth  it. 


INDUS 


The  all-new  1984  Indus  GT  Disk  Drive. 

The  most  advanced,  most  handsome  disk  drive  in  the  world. 


FordMlerinformalion.call  1-6QO-33-INDUS.InGilif()rni,i,  1-aOO-5-4-tNDUS.  213/882-9600. 

©  1983  Incfus  Systems,  9304  Deerins  Avenue,  Chatsworlh,  CA91311.  The  Indus  GT  is  .1  produci  ol  Indus  Syslcms.  Atari  is  a  registered  trademarit  of  Atari,  Inc.  Apple  is  a 

registered  trademark  of  Apple  Ctjmpuler,  Inc. 


It  all  adds  up... 


HOME  COMPTTXSHS 


AXIOM 


PRINTERS 


A1ARI 


850  Interface $159.00 

1010  Hscordsr (71.99 

1030  Color  Printer tZ19.00 

102S  Dot  Uatnz  Prlatsr 1899.00 

1037  Letter  (Juaaity  Prlntar..tZ69.00 
1030  Direct  Connect  Modem. ...i99.99 

1050  Disk  Drive $349  00 

1064  Uemory  Module S125.00 

Ttouch  Tatlet/Softwaxe $64.99 

Light  Pen/Software $73.39 

CXES  Tts.c'k   Ball $39,99 

7097  Atari  Logo *74.8e 

401B  PUot  (Home) $67.96 

408  Pilot  (Sduc) $99.99 

803«  Atari  PUot $77.99 

6049  trulCale $149.99 

488  Communicator  II $119  9? 


600XL $149 

800XZ. $229 

WHII.Z!  SUPPLT  LASTS 


ISOOXZ. CALL 

14S0XL CALL 

CXSO  Paddloa $U.99 

0X40  Joystick $7.99 

4011  Star  Raiders $31.99 

4023  Pae  Uan $31.99 

40ES  Defender $3199 

8026  Dig  Dug 831.99 

8031   Donkey  Kong S3S.99 

8034  Pole  Position-  --      $37.99 

8040  Donkey  Kong  Jr $33.99 

8043  Ms  Fscman .,$37.99 

S044  Joust $37.99 

S048  Pengo $33.99 

8052  Moon  Patrol $33.99 

4003  Aasembler $44.99 

8136  Microsoft  Basic  I  or  II. ....$64.99 


BISK  DRIVES  POR  ATARI 

PIRCOH  HANA 

AT   88-Sl $279,00     1000 $299.00 

AT  Se^l  PD $899.00  IBAX 

tanvs  AT-Dia $389.oo 

OT  Drive , $379.00    AT-D4 $669.00 

MEMOHT  BOAIUDS 

ATARI  APPLE/FBANKLIS 

Axlon   SKK 859.99  Axlon  12BK 8299,00 

Axlon   4aK $99.99  Axion    320K $849,00 

Axlon   13SK $299,00 


«>u^vv»- 


AUZV  VOICE  BOX 

$U9.00    Apple 


.$149.00 


DISKETTES 

HAXKLL 

Si/d"  MD-1 $24.99 

5V."  MD-2 $34,99 

8"   FDl    - $39-99 

S"   FD-2 849,99 


5'/4- 
5  'It  • 


S«i"   SaDD Value   Lite $22.99 

6'A"  D»DD Value  Life $28.99 

S*4"  Dtslc  Head  Cleajier $14.99 


EIiBPHAHT 

SS/SD $18.49 

SS'DD $21.99 

DSDD  .  $26  99 

BIBS.  aOLSXRS 

moTAxm  coacKFTs 

Flip-n-File  10 $3.99 

Pllp-n-Flle  SO $17.99 

Plip-n-File  50  wfloek $24.99 

Pllp-n-PllB  (400/800  ROM:  $17.99 


CONTROLLERS  &  JOYSTICKS 


WICD 

Joystick $21.99 

a-wa9  Jograuck $a8.99 

Poirer  Ortp $21.99 

BOSS  JqJSUek $17.99 

J£QUU/VIC  Tl*k  BkIL $34.99 

Appto  Truk  BaU $64.99 

Apple  Analog $37  99 

hoala 

Atari    (ROM) $79.99      IBM $99.99 

C-84  (ROM): -..$79  99      Apple'FranKUn  $85,99 


KRAFT 

Joystick. $41.99 

Atari  Bisgle  Fiis $12.98 

Atari  SwitcU  Hitter $15.99 

Apple  Paddles $34.99 

IBM  Paddles $34.99 

IBM  Jcystlck $40.99 


AT-100  Atari  Interface  Prmi9r$a39.00 

GP-lOO  Pirallol  Interface $199.00 

0P-a80  Atari  Bidirectional $319.00 

GP-700  Atari  Color  Printer     $489  00 

GP.BSO  Parallel  Printer 8269  00 

BMC 

401  Letter  Quality  $589.00 

BX-eO  Dot  Matrix   , $269,00 

ciToa 

Gorilla  Banana $209.00 

Prowrtter  8610P. ....$379.00 

Prowrller   IBSOP $699.00 

AIO  (18  Cp81 $389.00 

Hot  Dot  Matrix CALL 

FlO-40 $999.00 

FIO-SS $1349.00 

COMRSX 

ComWruer  11  Letter  Quality.  $499. 00 

OIABUI 

eao  Letter  Quality $949.00 

630  Letter  quality $1749.00 

DAIS  Tim  IT  RH 

2000 $999.00 

Tractor  Feed  $109.00 

BFaOK 

RX-aO.   RX-80FT.   RX-lOO CALL 

FX-SO.   FX-lOO CALL 

LQ    ISOO CALL 

n>a 

Prism  ao...Por  Configuration CALL 

Prism  33.. .For  Configuration,  ...CALL 
JVKI 

6100 $499.00 


MAHMRSMAS  TAI,I,T 

160L $389.00 

180L $799.00 

Spirit  BO 8309.00 

HXC 

ao23  Dot  Matrix $389.00 

8028  Dot  Matrix    £689.00 

2010'15'30 .$749,00 

3S10.'15.30  $1369.00 

7710n5/30   $1799.00 

OKISATA 
62.  63,  84,  92.  93.  3350,  2410. ..CALL 

OLTMTIA 
Compact  2       .  $479.00 

Compact   RO S509.00 

ESW    3000 $1449.00 

SHITK  COHOHA 

TP-1000 $449.00 

Tractor  Feed $119.00. 

■II.VRX  JUKMO 

SCO  Letter  Quality $449.00 

550  Letter  Quality $549,00 

770  Letter  Quality $899.00 

■TAX 

Gemini   lOX $299.00 

Gemini  ISX $399.00 

Serial  Board $75.00 

Radut    10 S699  00 

Radix    16 $699,00 

TOSHIBA 

1340 $869.00 

13  SI $1699.00 

TXAXtXAR 

laOP $469.00 

130P $649.00 

315   Color $459.00 


MODEMS 

ARCROR 

Volksmodem $59.99 

Mark  IL  Serial $79.99 

Mark  VII  (AuCo  Anal&uto  Dlal)$S9.99 

Mark  XII  (1200  Baud) $299.99 

Mark  TRS-80 $99.99 

9  Volt  Power  Supply $9.99 

HAYES 

300.,. $209,00 

1200 $499,00 

1200B $449,00 

He $269  00 

100 $298.00 

Smart  Com  II $69,99 

Chronograph $199,00 

MONITORS 


Smanmodem 
Smartmoaem 
Smartmodem 
Micromodem 
Micromodem 


300  Green  8149  00 

300  Amber $159.00 

310  Amber $169.00 

Color    1 ..$279  00 

Color  1   Plus 8299  00 

Color  2  Plus..„ ;....„ $419.00 

Color   3.,.. $349.00 

Color  4T  IBM .$699.00 


NOVATIOIT 

J-Cat S99.99 

Cat $139.00 

Smart  Cat  103 $179.00 

Smart  Cat   103/212 $399.00 

AutoCat $219.00 

212   AutoCat $549.00 

Apple  Cat  II $249.00 

21E  Apple  Cat ,.$449.00 

Apple  Cat  212  Upgrade $259.00 

PC  Cat  Access   1  2  3 $399.00 

ZBHITH 

ZTl £339.00 

ZT-10 $309.00 

ZTU $369.00 


1201  (12"  Green) $88.99 

1201  Plus  (12"  Green  HlResl    $98  99 

9191  Plus $249  00 

OORILLA 

12"  Green $88.99 

12"  Amber $95  99 

■■0 

JB  1260  Green $109.00 

Jfl  1201  Green.: $149.99 

JB  1205  Amber $159.99 

JB  1216  Color $289.00 

JC    1216  RGB  $429  00 

JC    1460  Color       .  $359  00 

PRinrCETON  ORAFHICS 
MAX.12   Amber  $199.00 

HX-12  RGB $539  00 

SRT2    RGB  ,    .  $64900 


BAKATA 

SC-100   Color $269.00 

SG-1000  Green £139.00 

SA-1000  Amber SI39,00 

TAXAH 

210  Color  RGB $299.00' 

400  Med-Res  ROB $319.00 

415  Hi-Hea   RGB $439.00 

420  HlRes  RGB  (IBM) $469.00 

100  !2"  Green ...,$126.00 

105  12"  Amber $135.00 

QSI 

Pi  1.  9"  Green $99.99 

Pi  2.  13"  Green $119.99 

Pi  3.  12"  Amber $129,99 

Pi  4.  9  '  Amber $119.99 

1400  Color $289.99 

qVASXAJI 
Quadchrome  8400  Color $519.00 

ZSHZTH 

ZVUIZZ   AmtMT $99.99 

ZVM123  Green $69.99 

ZVM124    IBM-Amber $149.00 

ZVM131   Color $309.00 

3VM133   RGB $429.00 

ZVM135  RGBComposlte $469.00 


Canada 

Ontario/Quebec  800-2GB-3974 
Other  Prouinces800-S68-4559 

In  Toronto  call 

t416)6280866.Dept.  105 

Order  StatuB  Numter:  826-0666 

250S  Dun  win  Drive,  Unit  3B 

Ulssissauga.  Ontario,  Canada  L6L1TI 

■o  nsJt.  Tio  deposR  on  0.0 .D.  orders  and  no  iraltlng  period  for  certified  checks  or  money  orders.  Add  3%  (minimum  $5)  snipping  and  handling  on  all  orders. 

Larger  shipments  may  require  additional  charges.  NV  and  PA  residents  add  sales  tax.  All  items  subject  to  availability  and  pi^lce  change.  Gall  today  for 
our  catalog. 


west 
800-648-3311 

In  NV  call  (702)538-5654. Dept.  105 

Order  Status  Hunter:  588-5654 

P.O.Box  6689 

StateUne.  SV  8944S 


east 
800-233-8950 

In  PA  call  (717)327-9575. Depl.  105 

Order  Status  Number:  327-9576 

Customer  Service  Humben  327-1450 

477  E.  3rd  St.,  Willlamsport,  PA  17701 


the  best  prices 

IBM 


F<  FRANKLIN 


APFL£/FIlAirKI.IN 

DISK  DHIVE8 

Kicao-sci 

A2 $219.00 

A40 _  .  439900 

A70 S319  00 

C2  Controller,  ,  $79  99 

C47  Controlle!',,      .  ,  SB9.99 

SANA 

Elite   I _ S279.00 

EUce  g $389.00 

Elite  3 $369.00 

APFU  Ha  8TABTZE  PACK 
e4K  Apple  He.  Disk  Drive  SrConlrollor.   ^CE  1000  Color  Computer.  .  .     CALL 

SO  Column  Card.  Monitor  lr&  DOS  3.3    ACE  PRO  PLUS  System CALL 

OOMPLHTB CALL    ^.f^^   moQ  Office  Ugml 

Gsll  on  all  Omar  Apple  Models       y^Qj.;    portables 


Sy.5tem,CALL 
CALL 


MBC  5BO .....CAI.Ii 

MBC  SBS.... GALL 

MBC  SaS-S CALL 

MBC  1100 $1499,00 

MBC  1150 $1899  00 

UBC  1200 $18';9  00 

MBC    12S0- $2099,00 

PR  5500  Printer $599,00 


^SANVO 


(n|  HEWLETT  PACKARD  "^  nc ses.sg 

'-*        n :-■>  HP  lac  $B8.9B 


HP  71B  S419.99 

41CV $189.99 

41CX $849.99 

SHARR 


HP    15C 

HP   16C 

$9£.9a 

t9£  99 

HP  76D 

HPII.    Module 

HPIL  cassette  or  Printer,,, 

$879,99 

,,S9a  99 

,,$359,99 

Card  Reader £143,99 

Extended  Function  Module   .,,$63,99 
I'lrne  Module $63,99 


{sfEC 


PC-IBOOA $163.99 

FC-1260A $aa.99 

CE-iaO   i'rlnttl'CiSsette  $186  99 

OE-ISO  Color  PrlnterCa3aette..$l'?1.98 

CE15S  8K  RAM $93.99 

CE-iei    16K   HAM..... $134.99 

Qz.  commodore 

CBM   BOaa $S9B 

CBM    aoi)r>  5669,00 

CBM    9000  $999  00 

Bisa-ao $7(39.00 

8032  to  9000  Upgrade £499.00 

2031  LP  Disk  DrtVB $299.00 

S050  Disk  Drive $949.00 

8gS0  Disk  Drive $1199.00 

4023  Printer. ,...$379.00 

6023  Prtntor $669.00 

6400   Pnntar.    ,. $1398,00 

Z-RAM     $499  00 

Siliccn    Office  $699  00 

The   Manager.  ,,  S199.00 

SoftROM      S1B5  00 


mm 


ws. 


1 


NEC 

I'C  eaSlA  Themal   Printer       S149  99 

PC-B2aiji.  Data  Recordur, $99.99 

PC-8201-06  8K  RAM  Chips $106.00 

PC-aS06A  32K  RAM  CaKrl<J«B*3a9.00 

SX-e4I>OTta1ila $889 

CBM    64 (199 

C1S41  Disk  Drive $249  00 

C1530   Datasette $69,99 

ClSaO  Color  Pnnter'Plotter,     SI£9  00 

M-801   Dot  Matrix   Printer SS19  00 

C1B26  Dot  Matrlx/Sei-lal $299.00 

C1702  Color  Monitor $259.00 

C13U  Joystick $4.99 

C13L2  Paddles $11.99 

Cieoo  VIC  Modem $69.99 

ClOUU  Aiitu  Mdoem $89,99 

Loiio  64 $49,99 

Pilot   64 $39.99 

Woi-d   Pro  64  Plus  $59,99 

Calc  Result  64  S65  99 


VlslCalc $169.00   Calc  Result  Easy $99.99 


FKorasaiOHAL  BoinrAHS 

Word  Pro  2  Plus $169.00 

Word  Pro  3  Plus ..$169.00 

Word  Pro  4  Plus/S  Pluseach... $279.00 
InfoPro  S179  00 

Adminislralor,  £399.00 

Poster S79  99 


Codewrlter  64 $75.99 

M03  801  Color  Prlnlfir $499.00 

DPS  1101  Daisy  Printer $459.00 

Magic  Voice  Speech  Uodule $64.99 

Dusk   Organizer   Lock  $49  99 

Vidtex  Telecom  mun  teat  Ions £34.95 


SEC  FRHTTIBS 

NEC  2050 $699.00 

NEC  3550 $1669.00 

FERCOK/TAHOOH 
DISK  SBIVES 
5'<-    3aOK   Fiuppy  ,  $819,00 

B  Mog  Hard  iv'Controller  ,  $1049.00 
10  Meg  Hard  w  Controller  $1349.00 
20  M«g  Hard  v.- Con  I  re  1  If  r     S1B99  00 

viszcoap 

VisiCalc  TV  $169.00 

VlslWord    + $249.00 

Vlsl-on  Application  llanager.,.$79.9g 

VlBl-on  Calo 1369.00 

Vlsi  on   Oraph $179.00 

Vi5i-on  Word $249.99 

Optical   Mouse $169.99 

AST  RESEARCH 

Six  Pak  Plus from   ,$879.00 

Combo  Plus  n from. ..$379.00 

Mega  Plus from.,, $309. 00 

I'D  Plus from.,. $139.00 

qVASBAK 

ftuadllnk $479.00 

ijuadboard as  low  as. ..$869. 00 

Quad  513  Plus as  law  as  .,$249,00 

Quadcolor as  low  as, ..$219.00 

Chronograph  ...       , £69.99 

Parallel  Interface  Board  ..S69.99 
64K  RAM  Chips  Kit $B9.99 


KICHOFHO 

WordStar  Proressioiial  Pack  $339,00 
InfoStar,  $299,00 

SpellStar ,    $1B9  00 

CalcSlar £99,99 

MICXOSTUF 
Crosstalk $105.00 

moKoaorr 

MumPian $169.00 

A8XX0S-TATE 

dBASE  ir , $339.00 

dBABE    III $449.00 

Friday! $185,00 

lUS 

EasyWriter  11 $249  00 

Easy  Speller $119,00 

Easy  Filer $229.00 

OOHTnrXIITAI.  SOTTWAXE 

1st  Class  Mall/Form  Letter $79.99 

Home  Accountant  Plus $86.99 

unva 

Symphony $S49  00 

1-2-3 ,        $339  00 

FKOFESaiOHAIi  80FTWAHE 

PC   PlusThe    Boss  $389  00 

STNAPSE 
File   Manager.... $69.99 


jPHF 


m^& 


data 
systems 


MSS 


SDl   Disk  Drive 
SD2  Disk  Drive 


['^ 


Electronic  Arts 
One  on  One 
Uuaic  ConstrucCian 
flnbalJ  Conatruotlon 
Cut  St  Faate 
KarJ  H;i!.  Liiick 

infoCom 
Witness 

Enchanter 
Zorkl,3.3  ea 
Suspandod 
Sorcerer 
Atarlfion. 

Moan   Pa'.ix); 

Spinnaker 
Aerobics 
Ttans 

Adventure  Croatur* 
Aegftan  Voyftj* 
5nwp4r  Trccpe  1.2  ea 

In  Sflaitih  nt 
t^ce  maker 

Kii..lrr-  r.-mj- 

Code  WriCflr 

VisiCorp 

VlslCalc 

ViaiCftlc  Advanced 
pfs.' 

Report 
Fitf 


PC  GOUPATIBLE   16  BIT  BTSTXMS 
Z-150  PC  Z-160  PC 

Call  for  price  and  configurations 
S07TWAR£ 


C-64 


Atari 


IBM 


Apple 


129  99 

$29.99 

829,99 

$2999 

(29.99 

$£9.99 

829,99 

$29.99 

tas.se 

$29.99 

829.99 

$2S.S9 

$39.99 

$39.99 

839.99 

$39.99 

££?  .4iJ 

Sar  69 

*£T  !!■• 

S27  99 

$29  99 

829  99 

$29  99 

829  99 

829  99 

829  99 

$29  99 

829  99 

SyP  99 

S'^9  3^ 

$2h  ^i^i 

829  [19 

S£U,ii9 

820  99 

tiiS.99 

829.99 

«S9  99 

$29  99 

$29.99 

$39.99 

SE7.9e 

(27,99 

$27.99 

$£7.99 

S£9.99 

$29.98 

$29  99 

*29.09 

t29  99 

tS9.9S 

$29  99 

$39.99 

S35  99 

NA 

128  99 

828  99 

S35  9S 

BA 

828  99 

82899 

S3S99 

KA 

82S99 

$28  99 

S3S99 

NA 

828  99 

$28,99 

S35  99 

NA 

828  99 

$28,99 

S35  99 

NA 
$28.99 

823  99 

$26,99 

$28.99 

$aa.99 

$aS99 

$24.99 

824.99 

$S4,»9 

$24.99 

$24.99 

$24.99 

$24  99 

$24  09 

$24  99 

$24  99 

$24  99 

8S4.99 

•as  99 

826  99 

$2B,a« 

$28.99 

S;^^  \ty 

iaa  fsj 

liil  l« 

SZ'^  9^< 

Saa  99 

SB3  99 

$22  99 

822  99 

SB4  99 

$24  99 

$24  99 

824  99 

822  99 

$S2  99 

$22  99 

822  99 

S17  99 

817  99 

817  911 

SI7  99 

«7S.B8 

$79.99 

$17E.99 

(ISS.89 

$199.98 

$14999 

81S9  99 

S189.98 

tllk 

N1& 

HA 

$269.99 

K  A 

NA 

lee  m 

$89  99 

NA 

NA 

889  99 

879  99 

MA 

NA 

879  99 

$79  99 

KA 

NA 

889  99 

$79  99 

NA 

NA 

$16  99 

816  99 

VISA- 


iMastsrCoil. 


Canada 

Ontario/Quebec  800-268-3974 
Other  Prouinces800-S68-4559 

In  Toronto  oii!! 
(416)aE8-0866.Dept.  105 
Order  Status  Number:  828-0866 
3505  Dunwin  Drive.  Unit  3B 
Misslssauga.  Ontario.  Canada  L5L1T1 
CANADIAN  ORDERS:  All  prices  are  subject  to  Shipping,  tax  and  currency  fluotuatloas.  Call  for  exact  pricing  In  Canada.  IHTBBNATIONAL  OKDEBS:  All 
orders  placed  with  D  S  offices  for  delivery  outside  the  Continental  United  States  must  be  pre-paid  by  certified  check  only  Inoiude  5"*  (minimum  $5) 
shipping  and  handling  EDUCATIOHAl.  DISCOUNTS  Additional  discounts  are  available  to  qualified  Educational  Institutions  APO  &  FPO:  Add  3%  iminimum 
£5|  shipping  and  handling. 


west 
800-648-3311 

In  NV  oull  (TOaiEea  a054.Depl,    106 

Order  Status  Number    568-5654 

P.O.Box  6689 

Stateline.  NV  89449 


east 
800-233-8950 

In  PA  call  (7171327-9576. Dept.   105 

Gi'dBi'  Status  Number:  327-9576 

Customer  Service  Number:  327-1450 

477  E.  3rd  St.,  Wmiamsport.  PA  17701 


Be  careful — the  graphics  can  make  this  a 
difficult  program  to  type  in.  If  you  would  like  a 
copy  (VIC  version  only),  send  a  cassette  tape,  a 
self-addressed,  stamped  mailer,  and  $3  to: 

David  R.  Arnold 
620  Alger 
Ozoosso,  Ml  48867 


BEFORE  TYPING... 
If  you're  new  to  computing,  please  read  "How 
To  Type  COMPUTEI's  Programs"  and  "A 
Beginner's  Guide  To  Typing  In  Programs." 


Program  1: 

Devastator  -  Ctiaracter  Creator  (VIC  Version) 

Refer  to  thie  "Automatic  Proofreader"  article  before  t/ping  this 

program  in. 

100  PRINT" {CLR}": PRINT" 16  DOWN} [5  RIGHTlP 

LEASE  WAIT"  ! rem  230 

105  PRINT" {3  DOWN}  DEFINING  CHARACTERS" 

:rem  190 
110  POKE52,28:POKE56,28:CLR  : rem  67 
120  FORI=7168TO7679:POKEI,PEEK(I+25600) :N 

EXT  I  rem  148 

130  FORJ=lTO22iREADC:FORI=0TO7:READD:POKE 

C+I,D; NEXT: NEXT  : rem  160 

140  POKE36869,255;POKE36879, 10:PRINT" 

fCLR}[9  RIGHT} {BLU} ABCDE DOWN} {4  LEFT] 

IJKL"  :rem  30 

145  PRINT"{4  D0WNl[RVS}[GRN} {6  SPACES}DEV 

ASTATOR":FORT=1TO1000:NEXT    :rem  156 
150  PRINT" {HOME] "TAB(A)" {7  DOWN}  [YEL}MN0 

[DOWN} {4  LEFT}  UVW" : A=A+1 : IFA>=19THEN 

GOTO200  : rem  2  35 

160  POKE36878,15:POKE36874,255!POKE36877, 

128:POKE36878,0:GOTO150       : rem  194 
200  PRINT" ERVS}Y0UR  MISSION  IS  TO 

{4  SPACES} PROTECT  EARTH  FROM  THEAPPRO 

ACHING  DEVASTATOR  : rem  214 

210  PRINT" {RVS} SHOOT  DOWN  AT  LEAST  10GUAR 

DIAN  SHIPS  T0{5  SPACES] ENABLE  YOUR  CO 

MRADES  :rera  65 

220  PRINT"{RVS]T0  DESTROY  THE{8  SPACES]DE 

VASTATOR.  srem  46 

230  PRINT" [DOWN] ! RVS} (HIT  KEY  TO  CONTINUE 

. )"  irem  222 

240  GETA$:IFA$=""THEN240  : rem  79 

245  PRINT" E HOME} {9  DOWN}"  srem  24 

250  PRINT "{ RVS }YOU  HAVE  ONLY  30 {6  SPACES] 

SECONDS  TO  C0HPLETEE3  SPACES]YOUR  PAR 

T  OF  THE (6  SPACES}";  srem  130 

260  PRINT" {RVS]MISSI0N.  POSITION  YOURCROS 

SHAIR  WITH  THE {4  SPACES } JOYSTICK.  SHO 

OT  BYE4  SPACES]";  srem  91 

270  PRINT" [RVSlPRESSING  THE  FIRE 

E5  SPACES } BUTTON. { 37  SPACES }" s rem  248 
280  GETA$:IFA$=""THEN280  srem  87 

290  PRINT"ECLR} {9  SPACES } {BLU }ABCDE DOWN} 

{4  LEFT  3 IJKL " : PRINT " { DOWN } { RVS } { RED } R 

ED  ALERT!  DEVASTATOR  APPR70ACHING 1" 

srem  223 
300  PRINT" ERVS}GRAB  YOUR  JOYSTICK  ANDPREP 

ARE  FOR  BATTLE. E 3  SPACES} FOR  TAPE,  PR 

ESS  PLAY. [ELK]";  : rem  253 

305  S$="LO"+CHR$(34)+"D"+CHR$(34)+",l:"+C 

HR$(131)  srem  62 

62     COMVTB      August  1 984 


"Devastator,"  V\C  version. 


3Qil    REM  CHANGE  1  TO  8  IN  LINE  305  IF  YOU 

{SPACE} ARE  USING  A  DISK  DRIVE  srem  87 

310  F0RI=1T0LEN(S$) : POKE630+I , ASC (MID$ (S$ 

,1) ) ;NEXT:POKE198,I:END       srem  139 

1000  DATA7 176, 2 55, 2 55, 2 5 3, 25 5, 127, 12 7, 127 

,127  srem  230 

1100  DATA7184,254,254,254,12  7,255,255,25  5 

,255  srem  235 

1200  DATA71 92, 0,0, 199, 2 3 1,239, 239, 195, 129 

srem  32 
1300  DATA7  200,63,63, 159, 207, 2  5  4,  2  54,  252,2 
52  srem  121 

1400  DATA7240,63,35,49,17,11,7,1,0 

srem  172 

1500  DATA7248, 255, 255, 255, 255, 255, 255,  255 

,63  srem  194 

1600  DATA72  56,129,1, 3, 131,131,  199,207,2  20 

B  rem  1 5 
1700  DATA7264,252,248,248,240,240,224,128 
,0  srem  121 

1800  DATA7208,0, 15, 59, 245, 123, 31,0,0 

srem  13 
1900  DATA72 16, 0,2 5 5, 189, 90, 189,  255,  0,0 

srem  137 
2000  DATA7224, 0,240, 220, 175, 220, 240, 0,0 

irem  140 
2010  DATA72 72, 96, 192, 160, 16, 9, 6, 31, 245 

srem  134 
2020  DATA7280, 32,112,80,248,108,151,111,2 
50  srem  104 

2030  DATA7288,48,24,40,64,128,0,192,248 

:rem  189 
2040  DATA73 36, 63, 15, 7, 8, 16, 160, 192, 96 

srem  90 
2050  DATA7344,255,2  5  5,39,32,H2,136,136,1 
12  srem  120 

2060  DATA7352,240,192,0,128,64,40,24,48 

srem  176 
2070  DATA7360,8,16,41,7,61,31,17,35 

srem  233 
2080  DATA7368,16,8,148,224,ia8,248,8,132 

srem  253 

2090  DATA7168,255,2  55,255,255,255,255,255 

,255  srem  251 

3000  DATA7296,127,191,223,2  39,247,2  51,2  53 

,254  srem  233 

3010  DATA7 304, 2 54, 253, 2 5 1,247, 2 39,  223,  191 

,127  srem  224 


commodore 


SOFTWARE  FOR  C-64 


63.00 

45.00 
95.00 
95.00 
89.00 


S    89.00 


Business 

Multjplan  (Spreadsheet) 

Calc  Result  (Easy) 

Calc  Result  (Advanced) 

Supertase  64 

Mirage  Concepts  (Data  Base) 

Mirage  Concepts  (Word  Processor) 

(40/80  dm  &  30K  Oictlonary) 

Mirage  Concepts 

(Report  Generator)  

Home  Accountant  (Continental) 

Tax  Advantage  (Continental) 

Southern  Solutions  Accounting 

G/L,  A/R,  A/P,  P.'R,  l/M  each 

Utilities 
Disk  Utility  Program  (Fast  Copy, 

RIe  Copy,  Disassembler  &  more) 

Smart  +64TenTtinai 

TO0L64  

Simon's  Basic  

80  Column  Expander  (Cartndge)  . 


49.00 
49.00 
39.00 


$    69.95 


49.00 
49.00 
39.95 
39.95 
60.00 


.VCCKSSORIKS 


Solo  Flight  (Simulator) S  34.95 

Hellcat  Avenger $  34.95 

Oscar  by  Databar 

(Bar  Code  Reader)     ,.,. S  79.95 

CBM  1541  (dew  version) , , , . ,  S  269.00 

Concord  Parallel  Disk  Drive  . .    , ,  S  345.00 

Concord  Slave  Drive    Call 

MSD  Super  Disk  (Single) S  395.00 

MSD  Super  Disk  (Dual) S  695.00 

1600  Modem $  63.00 

Vic  1650  Automatic  Modem S  109.95 

Hayes  Smart  300  Modem S  249.00 

Hayes  Smart  1200  Modem S  629.00 

Vic  1 530  Oatasette S  65.00 

Cardco  Datasette $  55.00 

5  Slot  Expander  (64) S  65.00 

Printer  Utility  Program  (Cardco) S  19.95 

64  Relay  Cartridge S  45.00 

Numeric  Key  Pad , .  S  49,00 

Alien  Voice  Box  (Talks  &  Sings) $119.00 

When  I'm  64  {Voice  Box  Sings) S  35.00 

Voice  Box  Dictionary $  35.00 

Texas  Instruments  LCD  Programmer. . ,  S  55.95 
Vetbalim  Diskettes: 

Single  Sided;Single  Density    $  26.00 

Single  Sided/Oouble  Density  S  30.00 

Double  Sided'Double  Density  - S  42.00 

Vic  20: 

3-Slot  Expander $  39.00 

6-Slot  Expander S  79.95 


16KMemoiy S  79.95 

CBM  4023  Ribbons S  9.95 

CBM  8023  Ribbons $  9.95 

RipWFilelO.IS.  25.  50 Call 

Power  Strips  w/surge  stopper Call 

Computer  Care  Kit S  19.95 

Disk  Cleaning  Kit S  12.95 


INTERFACES 


Superbox  (Transparent  IEEE. 

3-SlQt.  Reset)  S  139.95 

Interpod  (Intelligent  IEEE  &  RS-232) . .  S  139.95 
The  Connection  (By  Tymac) 

(Commodore  Graphics  +  2K  Buffer)  S  95.00 

Cardco  +  G  Parallel  Interface S  B9.00 

Vic  Switch S  149.95 

IEEE  to  Centroonics $  149.95 

Pet-to-IEEE  Cable S  39.00 

lEEE-to-IEEE  Cable S  49.00 

4  Prong  A^V  Cable - S  15.00 

Centronics  Cable  (male  to  male)  S  34.95 

RS232  Cable  (male  to  male)  S  31 .95 

fJetworidng  for  C-64  &  CBM  Equipment  Call 


MOMTORS 


CBM  1702  Color  Monitor  S  269.00 

Panasonic  TR-120  (Green) $  142.00 

Panasonic  TR-1 20  (Amber) $  156.00 

Panasonic  DT-1300  Color $  425.00 

Monitor  Stand  (Tilt  &  Swivel) S    29.95 

RGB  Monitor  Cable: 

ET-100C  (Apple) S    33.80 

ET-IOIC(IBM) S    33.80 

Green  &  Amber  Monitors S    95.00 

CBM  6400  Printer $1425.00 

Abati  (20  CPS) S  475.00 

Cardco  LQ/T  Printer S  495.00 

NEC  Spinwriter Call 


I^ETFER  QLlALnr  PRINTERS 


DOT  MAFRK  PRINTERS 


CBM  MPS-801  Printer  (50cps) 


.  S  245.00 


Call  to  Order 

1-800-527-1738 

All  Others  Call 

1-214-231-2645 

Micro-Sys 


CBM  4023  (100  CPS)  S  339.00 

CBM  3023  (160  CPS)  S  565.00 

Panasonic  KX-P1090  (10O  CPS) $  285.00 

Panasonic  KX-P1091  (120  CPS)  S  325.00 

Panasonic  KX-P1 092  ( 1 80  CPS) Call 

Panasonic  KX-P1093   Call 


COMMODORE  Bl'SINESS  M,\CHINES 


Executive  64  Portable $  795.00 

Bl  28-80  (128K  80  column) $  695.00 

SuperPel  (5  languages) S1059.00 

CBM  8032 $  595.00 

CBM 8096 ...,$  675,00 

CBM  2031  single  disk S  295.00 

CBM  8050  Dual  Disk  1  meg S  995.00 

CBM  8250  Dual  Disk  2  meg SI  295. 00 

CBM  9060  Hard  Disk/5  Meg $2195.00 

64K  Expansion  Board S  275.00 

SuperPet  Upgrade  Kit S  695.00 


Bl  SI  NESS  SOFTttARE  —  8032/8096 


Wordpro 4+or5+ $  29S.00 

Calc  Result S  199.95 

The  Manager $  199.00 

Superbase  (8096  only)  $  225.00 

BPI  Accounting  System 

6  Separate  Modules  each  $  325.00 

Southern  Solutions  Accounting 

5  Separate  Modules  each  S  285.00 

McTerm  Communications  Package  , . ,  $  175.00 


Bl  SINLSS  SOITVIARE  —  Bl  28 


Superscript  II  (40K  Dictionary) $  199.00 

Supert)ase  (Data  Base)  S  199.00 

Complete  Accounting  System 

(G/L,AyR,A/RO/E,P/R,l/M)  $  199.00 

Calc  Result $  199.00 


Orders  under  50.00  add  10.00  Handling  fee 
MasterCard.  VISA,  Money  Order  Bank  Check 
COD  (add  5.00) 
Add  3%  For  Credit  Cards 

All  Products  In  Stock  Shipped  Within  24  Hours 

FOB.  Dallas.  Texas 

All  Products  Shipped  With  Manufacturers 

90  Day  Warranty 

PRICES  ARE  SI  BJECril) 
CHANGE  W  nHOlT  NOTICE. 

DEALERS  I  NQl  IRIES  \IEI£0ME 


D    I    S    I    |]    I    B    U    T    0    l]    S 


641  Presidential  Drive  •  Richardson,  Texas  75081  •  9:30a.m.-6:30p.m.  (Mon.-Fri.)  ♦  10:30  a.m. -2:30  p.m.  (Sat.) 


Program  2: 

Devastator  -  Main  Program  (VIC  Version) 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  ttiis 
program  in. 

0  TI5="000000":SC=0:T$="000020"    : rem  36 
10  V=3687a: 54=36877 tPOKE36879, 10 :L=7888!P 

RINT"ECLR}";  s rem  147 

20  PRINT"{WHT} {2  SPACES}. {3  SPACES}. 

[2  SPACES} {BLU}ABCD{WHT}  .{5  SPACES}. 

(4  SPACES}. [5  SPACES} {BLU}IJKL{WHT} 

[4  SPACES}. {11  SPACES}. [4  DOWN}"; 

:rem  117 
60  PRINT". (12  SPACES}.? 12  SPACES}. 

{11  SPACES}. {4  SPACES}. {8  SPACES). 

:rem  41 
65  PRINT"{54  SPACES}. {2  SPACES}. 

{4  SPACES}. {4  SPACES}. {2  SPACES}" 

:rem  244 
70  J=1:PR1NT"  {BLU}ia(a@@?^@@Q{4  SPACEb}P@(a@ 

013(309  {PUR }(?(a@@@(aiaQ{BLU}@  {4  spaces  }§ 

{PUR}P@@§@@@@?@?@@§Q(aEBLU)ia{4  SPACES  }@ 
{PUR}@P@@@(a@@"  ;  :rem    121 

100  PRiNT"@§iaia@Q(a(a  {BLU}Q@ia(a@p{puR}(3@P(a(3g@ 
@@@@0Q@@Q@@@@^l3P@@P@@@@{BLU}(a^@Q{PUR} 
ia@Q5ia§(3^@@@P(a(3{BLU}P(a@@",-  :rem   120 

130  PRINT "@@Qg{ PUR }@Q@ia?@(a@(a@(a@P@{BLU}<ap? 
@@Q(a@{PUR}Qia@@@@@(a@@@ia(ap{BLU}@OP@Q@§Q 
@@i3(3@@@@@@@@(a@P@@P";  :rem  92 

140  PRINT"{RVS} {YEL} {2  RIGHT} DEVASTATOR  S 
Ci "SC; :IFTI$=> "000030"THEN2000 : rem   75 

150   GOTO800  : rem    103 

160  J=2:PRINT"{BLU}§(a@@0@(a(aQ{4  SPACES}P@{a 
g@@@@@@@(a@@@@Q@{4    SPACES  }taP@@@@  13(313 @(3(? 

@^@Qia(3{4  SPACES }(a@p@(3(a@@@{ PUR} @@@",- 

: rem    244 

190    PRINT "@@Q{BLU}@(aQ@@@(3P@@[  PUR }P@@@ia@@(3 
ia@Q@{BLU}@Q@(a@0@@P@[PUR}(ap@@@{3(ai3(3Q@@ 
{BLU)Q?i§@@@0(a@pEPUR}(a@Pia@@(a(aQ@@Q",. 

srem   255 

220  PRINT "@(3@@@@(a?(a?P@@P@§{BLU}?Q{  PUR }@0Q 
@0ia(a@g@(a{a@(a@p@@{BLU}P@Q(3{PUR}@Q(3i?(a@(a(a 
@(a@@@@(a(ap5{BLU}|ap";  ;GOTO800      :rem    228 

250    J=3:PRINT"EPUR}@@@(3@@<a@Q{4    SPACES}P@(a 
(a(a(a@@§£BLU}@@@@@(a(aQ{PUR}@{4   spaces}? 
{ BLU ] p§§ia(3(3 [3 @0@^ 0(3(30(3 E PUR} 0(4  spaces} 
(a£BLU}@P(3(3@@(3";  :  rem   107 

280  PRINT "0@(a0§l3Q?3(  PUR }Q(a(3|a(ap(BLU}(3@P(30@ 
?@(PUR)0@@@Q{BLU}@(3Q@@@@§(3P@0{PUR}P@@ 
@@@@@Qia{BLU}@Q@(3@(3@@(a@p@£pUR}@P@@0"  ; 

:rem  249 

320  PRINT"@|3Q@ia{BLU}Q@@@?@@@(a@@PEPUR}(3@P(a 
@@Q0(3Q@<a@@@ia@l3§@@@P(30P@E6LU}QEPUR}§(3Q 
^ia@(aia@(a(aia@@0(3@p§@{BLU}P"  ;  :  rem  124 

330   GOTOB00  : rem   103 

350    J=4:PRINT"{PUR}@@@§@@@|3Q(4    SPACES}P@@ 

@@@@@@@@@§(a@(3Q(3{4  SPACES  3  @p@@@§(a(3ia 
{blu}@?@?@@q£pur}@@£4  SPACES} (30 Eblu}p 

(3^^(3000"  ;  :  rem    50 

380  PRINT"00@0Q@{PUR}(3Q§0(3§P@{BLU}0P0@(3@? 
@@§|3Q0@{PUR}Q(3@(a00@p{BLU}0§P0000@00Q@ 
@Q@@@@@@@0P(a0P000EPUR}@@Q{BLU}@"; 

:rem  239 

420  PRINT "@Q@@?ia0@00(a0P00{ PUR }P0@@Qia{BLU} 
(3Q@@0000@0@?@@P0EpUR}(3P@Q(3@{BLU}Q@@P0 
(a@^(a(a9l30(3(ap(PUR}@@P"  ;  :GOTO800:  rem   244 

500    F=INT(RND( . )*9) : IFTI S>=T$THEN1B00 

: rem   143 

510  PRINTTAB(F)"E6  UP}{4  SPACES}MNO 

{19  SPACES}UVW{34  SPACES}";    irem  98 
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515  PRINT" {36  spaces}" :RETURN     ; rem  134 
520  Y=INT(RND( .)*3) :PRINTTAB(Y+F)"{6  UP} 
{22  spaces}"; jIFTI?>=T$THEN1900 

;rem  61 
530  PRINT"EWHT} {8  SPACES}XY{64  SPACES}"; 

:rem  90 
535  PRINT" {3  SPACES ]": RETURN  ; rem  136 
800  POKEV,5:POKES4, 140 ; POKEV, 0 : PRINT" 

{11  UP}"  irem  144 

1000  POKE37154, 127 :A=(PEEK{ 37137 )AND28)OR 

{PEEK(37152)AND128) :A=ABS( (A-100)/4) 

-7  ; rem  73 

1005  POKE37154,255:IFA=7THEN1080   : rem  55 

1010  ONAGOTO1015, 1016, 1017, , 1018, 1019 ,,, , 

,1020,1021,1022  :rem  34 

1015  R=R+21 :GOTO1080  : rem  114 

1016  R=R-23:GOTO1080  : rem  119 

1017  R=R-1 :GOTO1080  ; rem  68 

1018  R=R+22:GOTO1080  i rem  118 

1019  R=R-22:GOTO1080  : rem  121 

1020  R=R+1:GOTO1080  : rem  60 

1021  R=R-21 :GOTO1080  ; rem  113 

1022  R=R+2  3: GOTO 1080  : rem  114 
10B0  IFR<-44THENR=-44  : rem  206 
1085  IFR>44THENR=44  : rem  123 
1100  ONJGOSUB500, 520, 500, 520  : rem  5 
1110  POKEL+R, 219 :B=PEEK( 37137 )AND32:IFBTH 

ENONJGOTO160,250, 350, 70  : rem  250 
1120  IFPEEK( (L+R)-1)=130RPEEK( (L+R)-l )=2i 

ORPEEK( (L+R)-l )=24THEN1130  : rem  55 
1125  IFPEEK( {L+R)+l )=250RPEEK( ( L+R) -1 ) =5T 

HEN1130  :rem  221 

1128  ONJGOTO160,2  50,3  50,70  s rem  157 
1130  POKES4 , 220 :FORS=8T025  5STEP5 : POKE3687 

9 , S ! POKEV , 4 : POKEV , 0 : NEXT ; SC=SC+ 10 : GO 

TO10  ; rem  131 

1800  PRINTTAB(F)"(4  UP} {YEL} {4  SPACES]EFG 

{48  SPACES  3 ":RETURN  s rem  214 

1900  PRINTTABCY+F)"{YEL} {3  SPACES} EFG 

E51  SPACES}";  :rem  56 

1905  PRINT" {20  SPACES] ": RETURN  5  rem  186 
2000  IFSC>=100THENPRINT"{HOME} {4  DOWN} 

{7  SPACES} {RVS 3 YOU  WINl " : POKEV, 9 :FOR 

T=1TO500:NEXT:GOTO3000  : rem  86 
2005  PRINT "{RVS} {10  UP} {3  SPACES}N EuP}N 

Eup]N{up} {left}m{up} {left}n{up}n£up} 

N { UPTn { LEFT } {UPTm E  LEFT  3 { UPTN{ UPJN " 

: rem  74 

2010  PRINT" {HOME} {RVS} {4  SPACES} ^cg 
Ef3  E6  B^  Ed?  Ec3£2  SPACES} 
ici{2  SPACEs3Ef3{2  SPACES}gDE 
{SPACE3EF3  H  B3{2  SPACESJ^Fi 
{SPACE}ED3E3  SPACES ] gC3"; :rem  74 
2020  PRINT" {7  SPACES] Ed3{ SHIFT-SPACE  3 
BDi{ SHIFT-SPACE  3 ^Cf  ":FORT  =  15TO0 
STEP-1; POKEV, T:FORL=lTOl 00 ;NEXTL:NEX 
TT  :rem  78 

2030  PRINT" {RVS} {RED}  YOU  HAVE  FAILED  IN 
{7  SPACES} YOUR  MISSION! {6  SPACES} EAR 
TH  IS  DESTROYEDl{2  SPACES]"  ; rem  151 
2040  POKE198,0:PRINT" {RVS}HIT  Fl 

{2  spaces} TO  PLAY  AGAIN."  : rem  211 
2050  GETP$;IFP$=""THEN2050  : rem  207 
2060  IFP$="{F1}"THEN0  : rem  48 

2070  IFP$<>"{F13"THEN2050  : rem  5 

3000  F0RT=8164T07856STEP-1:M=INT(RND( . )*4 
) :B=INT(RND( 1)*2) ; POKEV, M: POKET, 2  51+ 
B;NEXT  :rem  50 
3010  PRINT "{RVS 3  DEVASTATOR {2  SPACES  3 DESTR 
OYED! ":POKEV,0:GOTO2040      : rem  204 


SAVE  MORE  THAN  EVER  ON... 

3M  Scotch®  DISKETTES         < 


AND  OTHER  COMPUTER  NEEDS! 


LIFETIME  WARRANTY! 


3M  BULK  DISKETTES' 
AT  TREMENDOUS  SAVINGS! 

These  are  genuine  3M  diskettes  with  a  lifetime  warranty.  But  they  are  bulk  packed  in  cartons  of  50 
with  separate  white  Tyvec  envelopes.  No  identification  labels,  write  protect  tabs  or  cartons  are 
provided!  A  great  buy  (or  volume  users. 


ea. 


Qty.  50 


S'/V'SSDD 


51/4"  DSDD- 


Qty.  50 


5V4"  SSDD-96TPI 


$2.20 


5'A"DS0D-96TPI 


.  $2.75 


All  have  reinforced  hub, 

SOFT  SECTOR  ONLY! 

(for  IBM,  APPLE,  KAYPRO,  DEC  and  about  99%  of  all  computers.) 

Must  be  ordered  in  multiples  of  50! 

BOXED  3M  DISKETTES 
WITH  ALL  THE  TRIMMINGS! 

Factory-fresh  3M  packaging  with  envelopes,  3M  logo  labels,  ID  labels  and  wrlte-proteet  tabs. 

$1oS  ^ '' '''°  $035 

I        Qty,  20  5'/4"DSDD — »-  ^^^h       Qty.  20 

S'A-  SSDD-96TPI  $2.60       S"  SSSD  $2.05 

5V4-  DSDD-96TPI $3.25       8'  SSDD      $2.50 

8'DSDD $3.10 

Minimum  order  of  20  diskettes.  Additional  diskettes  in  multiples  of  10, 


ea. 


3M  HEADCLEANING  KITS 

Stop  swearing  and  start  cleaning.  This  non-abrasive 
cleaning  kH  has  everything  you  need  (or  thirty  applica- 
tlons, 

S23.00  '  ;t  BOShpng 

SJIVE  MONEY  WfTH  A  CIMAM  COMPUTERt 
INTRODUCING  MINI-VAC 


^v:;^ 


Most  computer  mattunctions  are  caused  by  dust,  MINI- 
VAC  is  ideal  tor  cleaning  keyExiards,  screens,  drives  ar>d 
printers.  (Great  for  photo  equipment,  tc»!}  Equipped 
with  an  easy-empty  bag,  two  directional  wands  and  two 
line-brush  nozzles,  Don't  compute  without  it.  (Requires 
9-volt  battery  which  is  not  included) 

$21.95  -  £300ShpTg 

AT  LAST:  A  DISK  DRIVE  DIAGNOSTtCS 
SYSTEM  THAT  WORKS! 

The  Dymek  Recording  Interchange  Diagnostk:  (RID)  is  a 
prolesslorial,  but  easy  to  use.  dnve  diagrostK:  dtsk  It 
tests  dnve  speed,  radial  position,  hysteresis,  wnie  func- 
tion, erase  crosstalk,  signal -to- noise  and  dampng,  Ir 
short,  It's  a  professional  s  system  that  will  help  you  keep 
your  machine  in  prime  condition,  ..and  avoid  the  evi!s  of 
data  loss,  _^ 

S29.95  ^$l.50ShpTg 


f^ 


MEDIA-MATE  50: 
A  REVOLUTION  IN  DISKETTE  STORAGE 

Every  of>ce  in  a  while,  someofie  takes  the  simple. ..and 
maKes  it  elegant.  This  unit  hokJs  50  5V<'  diskettes,  tias 
grooves  lor  easy  stacking,  nipp(es  to  keep  diskettes  from 
slipping  In  ttie  use  and  several  other  features.  We  like  it. 

$10.95  .  SJ.OOShpng. 


% 


DISKETTE  70  STORAGE: 
STILL  A  GREAT  BUY 

Dust-tree  storage  for  70  5V<' 

diskettes.  Six  dividers  included- 

An  excellent  value 

$14.95  -M-OOSnpng 


PRINTER  RIBBONS 
AT  BARGAIN  PRICES. 

EPSON  MX-70/80  $3.SB  .   2S  Sfi(x^ 

EPSON  MX-10D     .  t6.99  .  25  Shptig 

Okidata  Micro  34  $3.66  t  .25  Shpng 

DiaOlo  630  Mylar  $2.60  +  ,25  Stipng 

Diablo  630  Nylon     .  $2.93  *  ,25  Shpng 

THE  END  TO  RS-232 
CABLE  PROBLEMS:  SMARTCABLE 

Nov/  interfacing  almost  any  two  RS-232  devices  is 
simple  and  quck.  Just  >ug  in  SMARTCABLE  and  flip 
two  switches.  Ttte  togic  ol  botti  devices  is  figured  out 
immediately  and  you  can  get  to  woHc. 

$79.95  +  S1.50Shpng. 

ShIppInQ:  SU'  DISKETTES— Add  $3.00  per  100  or  lewer  diskettes. 
8-  biSKETTtS— Add  S*00  per  100  w  (!w«f  diskanus  OTHER 
ITEMS  Add  shipping  cnargea  as  stxjwn  ir  addition  lo  d  siiette 
sJiipping  cftarges  Piymonti  VISA  and  Wastatcafd  accBDt«d  COO 
orders  oniy.  add  S3  M  riandling  charges  Ta»i:  IKmws  r^s^Jer^is. 
please  add  d%  sates  tax 


WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

Nationwide:  1-800-621-6827 

Illinois:  1-312-944-2788 

Hours:  9AM  -  5PM  Central  Time 

Minimum  Order:  $35.00 


DISK  WORLD!,  Inc. 

SUITE  4806 

30  EAST  HURON  STREET 

CHICAGO,  ILLINOIS  60ei1 


Authorized  Distributor 
Information  Processing  Products 


s 

o 
o 


August  1984     COM>Um     65 


Another  alien  saucer  waits  to  be  destroyed  in  "Devastator,' 
Color  Computer  version. 

Program  3: 

Devastator  -  Color  Computer  Version 

by  Charles  Brannon,  Program  Editor 


100 
105 

107 

110 
120 
125 
130 
140 
150 
160 
165 


REM  MiJBil;: 

CLEAR  1000; 

024+1 1 1 

B*=CHR* ( 128) 

B*  +  B* 

DIM  FRAME«<2,7) 

FDR  1=0  TO  2 

RESTORE 

FOR  J=0  TD  7 

READ  A* 

FOR  K=l 


01  [Oal.iJ;tf*i!hiiJ:. 

Z=l :PS=RND (159) ; PP=1 

B*=B*+B*+B*+B*+B*+ 


GOT 


TO  LEN<A*> 
C«=MID« (A*, K, 1) 

IF  C«="  "  THEN  C«=CHR4(12a) 
0180 

IF  VAL(C«)=I+1  THEN  C*=CHR*(239 
)  ELSE  CS=CHR*(175) 
MID$  CA«,  K,  1 )=C*:NEXT 
CLS  J: PRINTa237, 23- ( I «B+J ) ; 
FRAME*  < I , J) =A*; NEXT:NEXT 
CLS  0:PRINT34B0 
210  PRINT3224, "";: FORJ=0TD7: PRINT  F 
RAME* (FR, J) ; : NE XT : FR=FR+ 1 : IFFR= 
3THENFR=0 

TM=TM+1:PRINTS480, "TIME: " ; 40-TM 
;  ;  IF  TM  =  40  THEN  500 

IF  LL=0  THEN  LL=RND < 1 0 ) t GOSUB30 
00: DX  =  R: GOSUB3000  5  DY  =  R:  6OSUB300 
0: DZ=R 

PRINT3PS,B*; :PRINT3PS+32,B*; 
PS=PS+DX+32«DY: IFPS< 0ORPS > 1 59TH 
ENPS=PS-DX-32«DY 

GOSUB  3000: Z=Z+R: IF  Z<1  OR  Z>6 
THEN  Z=Z-R 
GOSUB  2000 
LL  =  LL-1 
POKE  PP, 128: QX=JOYSTK(0) sQY=JOY 

STK< 1) 

TP=PP+<QX<20> -<QX>44)+32« (QY<20 

) -32« (QY>40) 

IF  TP>1024  AND  TP<1215  THEN  PP= 

TP 

P=PEEK (PP) : IFP=i2aTHENP0KEPP, 43 

: GOTO210 

Y=INT (PS/32): X=PS-Y*32: X=X«2: Y= 


170 

1B0 

185 
190 
200 


215 


220 


230 
240 

250 

255 
260 
270 

275 

276 

277 


Color  Computer  Notes 


Use  a  joystick  plugged  into  the  right  port  to 
play  the  Color  Computer  version  of  "Devas- 
tator" (Program  3).  Type  the  DATA  state- 
ments carefully;  they  determine  the  shape 
and  color  of  the  moving  trench.  The  program 
reads  the  patterns  of  I's,  2's,  and  3's  and 
creates  three  different  "views"  of  the  trench, 
using  the  solid-colored  blocks  in  the  character 
set.  When  these  are  shown  in  succession, 
you  get  the  illusion  of  moving  bands.  This  is 
all  made  feasible,  of  course,  by  the  Color 
Computer's  very  fast  PRINTing  speed. 

The  alien  ship  is  drawn  by  several  sub- 
routines; each  draws  a  different-sized  ship. 
By  erasing  and  redrawing,  the  alien  ship  can 
be  made  to  appear  to  weave  in  and  out  three- 
dimensionally.  The  alien  ship  is  also  drawn 
with  relatively  low-resolution,  quarter- 
square  characters.  The  main  program  checks 
for  a  collision  between  the  cross  hairs  and 
the  alien  simply  by  comparing  their  X,Y 
coordinates. 

You  have  a  limited  amount  of  time  to 
shoot  the  alien.  If  you  take  too  long  (the  clock 
counts  down  to  zero),  a  colored  beam  blasts 
and  reduces  the  Earth  to  a  smear  of  colorful 
dots.  There's  always  the  next  game! 


280 
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Y«2 
290  FORI  =  1TO200STEP10:  PR  I  NTS>PS  +  RND  < 

7>-i+(RND(2)-l)*32, CHRt (RND ( 128 

) +127) ;: SOUND  I,1:NEXT 
295  PRINT3PS, B« ; : PRINTSPS+32, B*; : PS 

=RND ( 191 ) 
300  SOUND  255,2:SOUND250, 2:SOUND100 

,2: SOUND  255,2 
305  PTS  =  PTS+ (7-Z>  »10: PRINT3490,  "SCO 

RE: ";PTS; :TM=0:GOTO210 

499  REM  HaiHEaOSC:  ES  i:=^:T;liii 

500  WPQS=202: CLS0 

510  PRINT3WP+1 , CHR*  < 193) CHR*  C195)CH 

R*C195)CHR*(195)CHR«(194) ; 
520  PRINT3WP+32, CHR* ( 1 6 1 ) CHR* ( 1 75 ) C 

HR*  (  175) CHR* (143) CHR* ( 175) CHR* ( 

175) CHR*  < 162)  ; 
530  PR1NT3WP+64, CHR* (143) CHR* ( 143) C 

HR*( 175) CHR*  < 175) CHR* <  175) CHR* ( 

175) CHR* (175) ; 
540  PRINT3WP+96, CHR* (196) CHR* ( 175) C 

HR* ( 175) CHR* ( 175) CHR* ( 175) CHR* ( 

175) CHR* ( 168) ; 
550  PRINT3WP  +  129,  CHR*  (196)  CHR*  (204)' 

CHR* (204) CHR* (204) CHR* (204) ; 
560  PRINT3WP+161 , "EARTH" ; 
570  F0RZ=1T06: SOUND100, 2: PS  =  7-Z: PR  I 

NT3PS, B*;  : PR  I NT3PS  +  32, B* ;  : PS  =  6- 

Z : SOUND200, 2 : GOSUB2  000 : NEX TZ 
575  FOR  J=l  TO  2 
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NEW  128K  COMMODORE  -  80  COLUMN 


COMPUTER  SYSTEM  SALE! 

HOME  •  BUSINESS  •  WORD  PROCESSING 


100  CPS 
4023  Printer 


LOOK  AT  ALL  YOU  GET  FOR  ONLY  $1 195 


LIST  PRICE 

B128  COMMODORE  128K  80  COLUMN  COMPUTER  995,00 

8050  DUAL  DISK  DRIVE  (over  1  million  bytes)  1795.00 

4023  -  100  CPS  -  80  COLUMN  BIDIRECTIONAL  PRINTER  499,00 

12"  HI  RESOLUTION  80  COLUMN  GREEN  OR  AMBER  MONITOR  249.00 
SUPER  SCRIPT  80  COLUMN  PROFESSIONAL  WORDPROCESSOR  149.50 
SUPER  BASE  PROFESSIONAL  DATA  BASE  149.50 

BOX  OF  10  LORAN  LIFETIME  GUARANTEED  DISKS  49.95 

1 100  SHEETS  FANFOLD  PAPER  19.95 

ALL  CABLES  NEEDED  FOR  INTERFACING  102.05 

TOTAL  LIST  PRICE  4008.95 


Printer  replacement  options  (replace  the  4023  with  the  following  at  these  sale  prices) 


SALE  PRICE 
$1195.00 


*  Olympia  Executive  Letter  Quality  Serial  Printer/Typewriter 
^  Comstar  Hi-Speed  160  CPS  15'/i"  Serial-Business  Printer 


LIST 

849.00 
779.00 


SALE 

499.00 
449.00 


Plus  You  Can  Order  These  Business  Programs  At  Sale  Prices 


ACCOUNTS  RECEIVABLE 
ACCOUNTS  PAYABLE 
PAYBOLL 


LIST 

149  95 
N9  95 
149  95 


SALE 
99-00 
99.00 
99.00 


INVENTORy 
GENERAL  LEDGER 


LIST 

14995 
149  95 


SALE 
99.00 
99.00 


15  DAY  FREE  TRIAL  We  give  you  15  days  to  try  out  ttiis  SUPER  SYSTEM  PACKAGE!!  If  it  doesn't  meet  your  expec- 
tations, lust  send  it  back  to  use  prepaid  and  we  will  refund  your  purchase  price!! 

90  DAY  IMMEDIATE  REPLACEMENT  WARRANTY  if  any  of  theSUPER  SYSTEM  PACKAGEequipment  or  programs 
fail  due  to  laulty  workmanship  or  material  we  will  replace  it  IMMEDIATELY  at  no  ctiarge!! 


I  Add  $50.00  for  shipping  and  handling!! 

I  $100.00  for  Canada,  Puerto  Rico,  Hawaii  orders. 

I  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES. 
I  Enclose  Cashiers  Check,  Money  Order  or  Personal  Check. 
!  Allow  14  days  tor  delivery.  2  to  7  days  for  phone  orders.  1  day 
I  express  mail!  Canada  orders  must  be  in  U.S.  dollars.  We 
I  accept  Visa  and  MasterCdrd  WeshipCOD  to  US  addresses 
I  only.  


F^'^Ff^Pf^l^PS    IWE  LOVE  OUR  CUSTOMEHSl 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Phone  312/382-5244  lo  order 


Commodore  64 

(more  power  than  Apple  II  at  half  the  price) 


50* 


$99. 


COMPUTER  AND  SOFTWARE 


SALE 


170K  DISK  DRIVE  $159.00  * 
TRACTION  FRICTION  PRINTER  $79.00* 


WE 
HAVE 

THE 

BEST 

SERVICE 


WE 

HAVE 

THE 

LOWEST 

PRICES 


VIC-20 

(a  real  computer  at  the  price  of  a  toy) 


S79. 


50 


•  COM-64  POWER  FOR  VIC-20  $79.00 

•  NEW  VOICE  SYNTHESIZER  $59.00 
(Com-64  or  VIC-20) 


*  COMMODORE  64  COMPUTER  $99.50 

You  pay  only  $199.50  when  you  order  the  power- 
ful 84K  COMMODORE  64  COMPUTER!  LESS  the 
value  Of  the  SPECIAL  SOFTWARE  COUPON  we 
pack  with  your  computer  that  allows  you  to 
SAVE  OVER  $100  off  software  sale  prices!!  With 
only  $100  of  savings  applied,  your  net  computer 
cost  is  $99.50!! 

*170K  DISK  DRIVE$1 59,00 

You  pay  only  $259.00  when  you  order  the  170K 
Disk  Drive!  LESS  the  value  of  the  SPECIAL 
SOFTWARE  COUPON  we  pack  with  your  disk 
drive  that  allows  you  to  SAVE  OVER  $100  off 
software  sale  prices!!  With  only  $100  of  savings 
applied,  your  net  disk  drive  cos!  is  $159.00. 

♦  TRACTION  FRICTION  PRINTER  $79.00 

You  pay  onlyS179.00  when  you  order  the  Com- 
star T/F  deluxe  line  printer  thai  prints  8  VZ  x  11 
lull  size,  single  sheet,  roll  or  fan  (old  paper, 
labels  etc.  40,  66,  80,  132  columns.  Impact  dot 
matrix,  bi-direclional.  80  CPS.  LESS  the  value  of 
(he  SPECIAL  SOFTWARE  COUPON  we  pack 
with  your  printer  that  allows  you  to  SAVE  OVER 
$100  off  software  sale  prices!!  With  only  $100  of 
savings  applied  your  net  printer  cost  is  only 
$79.00. 

4  COLOR  PRINTER/PLOTTER  $99.00 

Lowest  cost,  4  color.  80  column,  letter  quality 
PRINTEFVPLOTTER  for  Com-64  or  VIC-20  com- 
puters!! List  programs.  High  resolution  graphics 
for  charts  and  geometric  figures.  INCLUDES  IN- 
TERFACE AND  SPECIAL  SOFTWARE  SAVINGS 
COUPON!! 

80  COLUMN  BOARD  $99.00 

Now  you  program  BO  COLUMNS  on  the  screen 
at  one  time!  Converts  your  Commodore  64  to  80 
COLUMNS  when  you  plug  in  the  80  COLUMN 
EXPANSION  BOARD!!  PLUS— yoo  can  get  an  80 
COLUMN  BOARD  WORD  PROCESSOR  with  mail 
merge,  terminal  emulator,  ELECTRONIC 
SPREAD  SHEET.  List  $59.00  SALE  $24.95  if  pur- 
chased with  80  COLUMN  BOARD!!  (Tape  or 
Disk) 

80  COLUMNS  IN  COLOR 
EXECUTIVE  WORD  PROCESSOR  $69.00 

This  EXECUTIVE  WORD  PROCESSOR  is  the 
finest  available  for  the  COMMODORE  64  com- 
puter! The  ULTIMATE  for  PROFESSIONAL  Word- 
processing  application!  DISPLAYS  40  OR  80 
COLUftlNS  IN  COLOR  Or  Black  and  White!  Sim- 
ple to  operate,  powerful  text  editing  with  a  250 
WORD  DICTIONARY,  complete  cursor  and  in- 
sert/delete key  controls  line  and  paragraph  inser- 
tion, automatic  deletion,  centering,  margin  set- 
tings and  output  to  all  printers!  Includes  a 
powerful  mall  merge.  20,000  WORD  DIC- 
TIONARY ■  List  $24.95  SALE  $19.95.  EXECUTIVE 
DATA   BASE   ■   List   $69,00  SALE   $49.00.   (Disk 


SPECIAL  SOFTWARE  COUPON 

We  pack  a  SPECIAL  SOFTWARE  COUPON  H 

with  every  COMMODORE  64  COMPUTER- ■ 

DISK  DRIVE-PRINTER-MONITOR  we  seltl| 

This  coupon  allows  you 

to   SAVE 

overB 

$100  OFF  SALE  PRICE5I 

Up  to  $500  sav- 1 

ings  are  possible! 

PROFESSIONAL  SOFTWARE 

COMMODORE  64 

Ninw 

Utt 

Sile 

Coupon 

Ejecutive  Word 

Prccessor 

199.00 

$69.00 

$59.00 

Execulive  Data  Base 

(69.00 

$59.00 

$39.00 

20.000  Word  Diclionary 

S24.95 

$19.95 

$14.95 

electronic  Spreadsheet 

$59.95 

$49.00 

$39,00 

Accounting  Pack 

S49.00 

$39,00 

$29,00 

Total  S.2 

Word  Proces3Dr 

Tape 

S69-0O 

$49.00 

$34.00 

Disii 

S79.9S 

$59.00 

$39  00 

Total  Text  2.6 

Word  ftocessor 

Tape 

$44-95 

$34  95 

$22.00 

Disk 

$49.00 

$39.00 

$27  00 

Total  LabeS  2.B 

Tape 

$24.95 

$18,00 

$12,00 

Disk 

$29.95 

$83,00 

$15.00 

Programmerg 

Helper  IDisK) 

$59.00 

$3995 

$29  95 

BO  Column  Screen 

(Disk) 

$59.95 

$39,95 

$2995 

Crush-Crumble- Cnomp 

(Tape/ Disk) 

$29.95 

$24.95 

$19.95 

PitstopfCanridge) 

$39.95 

$29.95 

$24.95 

Typing  Teac  tier 

(TapeiDiskl 

$29-95 

$24.95 

$1500 

Sprite  f^slgnerlDisk) 

$16.95 

$14.95 

$10,00 

Firepan  Joystick 

$24.95 

$15,95 

$10-00 

LieM  Pen 

$39,95 

$16.96 

11495 

Dust  Cover 

$  8,95 

$  6.95 

$  4.60 

(See  100  coupon  iierrtsmouf  catalog '} 

Write  or  call  for 

Sample  SPECIAL  SOFTWARE  COUPON!    ■ 

^^^^^^^^^^^^H 

^^^^■H 

EXECUTIVE  QUALITY 
PROFESSIONAL  BUSINESS  SOFTWARE 

The  Cadillac  of  business  programs 
for  Commodore  64  Computers 


IWm 

Inventory  Managemenl 

Accounts  Receivable 

Accounts  Payable 

Payroll 

General  Ledger 


Lilt 

$99.00 
$99,00 
$99.00 
$99.00 
$99.00 


•SALE 

$59  00 
$59.00 
$59.00 
$59.00 
$59.00 


Coupon 

$4900 
$49,00 
$49,00 
$49.00 
$49,00 


VIC-20  COMPUTER  S79.50 

This  25K  VIC-20  computer  includes  a  full  size  66 
key  typewriter  keyboard  color  and  graphics  keys, 
upper/lower  case,  full  screen  editor,  16K  level  II 
microsoft  basic,  sound  and  music,  real  time 
lloaling  point  decimal,  self  teaching  book,  con- 
nects to  any  T,V,  or  monitor! 

COM-64  POWER  FOR  VIC-20    S79.00 

Just  plug  in  our  32K  RAM  MEfvfORY  EXPANDER 
and  you  get  as  much  usable  programming  power 
as  the  Commodore-64  computer!!  Master  control 
switches  on  cover,  Gold  Edge  connectors,  five 
year  warranty  (FREE  J29,95;  CARTRIDGE  GAI^E) 

NEW  VOICE  SYNTHESIZER  $59.00 

Fof  Com.64  or  VIC-20  computers.  Just  plug  it  in 
and  you  can  program  words  and  sentences,  ad- 
just volume  and  pitch,  make  talking  adventure 
games,  sound  action  games  and  customized 
talkies!!  FOR  ONLY  S19.95  you  can  add  TEXT 
TO  SPEECH,  just  lype  a  word  and  hear  your 
computer  talk-ADD  SOUND  TO  "ZORK," 
SCOTT  ADAMS  AND  AARDVARK  ADVENTURE 
GAMES!!  (Diskortape). 

16K  RAM  CARTRIDGE  $49.00 

Increases  VIC20  programming  power  4  times. 
Expands  total  memory  to  41 K  (41,000  bytes). 
Memory  block  switches  are  an  outside  cover! 
CARDCO  Includes  FREE  S29.95  game! ! 

8K  RAM  CARTRIDGE $34.95 

Increases  VIC20  programming  power  2  1/2 
times.  Expands  total  memory  to  33K  (33,000 
bytesj.  Includes  FREE$16.95game. 

3  SLOT  SWITCHABLE  EXPANDER  $24.95 

Allows  you  to  add  3  cartridges  at  one  lime- 
switch  select  to  turn  slots  on  or  off  —  PLUS  reset 
button,  A  must  for  your  VIO20  computer! ! 

60K  MEMORY  EXPANDER  $49.00 

Sixslot  Board  —  Switch  selectable  —  Reset  but- 
ton —  Ribbon  cable  —  CARDCO.  A  must  to  get 
the  most  out  of  your  VIC-20  Computer! 


9*  GREEN  SCREEN  MONITOR  $69.00 

Excellent  quality  SANYO,  easy  to  read,  BO  col- 
umns X  24  lines,  Green  PtiosphofOus  screen 
w)th  anti-glare,  metal  cabinet!  Saves  your,  T.V. 
PLUS  S9.95  for  connecting  cable.  Com-64  or 
VIC-2a 

12'  GREEN  OR  AMBER  MONITOR  $99,00 

Your  choice  of  green  or  amber  screen  monitor, 
lop  qualily,  SANYO,  80  columns  x  24  lines,  easy 
to  ready,  anti-glare,  faster  scanning!  A  must  for 
word  processing  PLUS  S9.95  for  connecting 
cable.  Com-64  or  VIC-20. 


•  LOWEST  PRICES  •  15  DAY  FREE  TRIAL  •  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL  •  OVER  500  PROGRAMS  •  FREE  CATALOGS 


I  Add   $10.00   for   shipping,    tiandling   and    insurance,    Illinois   residents 
I  please  add  6%  lax.  Add  $20,00  for  CANADA.  PUERTO  RICO.  HAWAII 
I  orders.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES, 
i  Enclose  Cashiers  Check.  Money  Order  or  Personal  Ctieck.  Allow  14  days 


for  delivery.  2  to  7  days  for  ptione  orders.  1  day  express  mail!  Canada 
orders  must  be  in  U.S.  dollars.     VISA  —  MASTER  CARD  -  COD. 


CIVlTCDpDI7CC    (VVE  LOVE  OUR  CUSTOMEfiSI 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Phone  312/382-5244  to  ordfir 


80  COLUMN  PRINTER  SALE— $149.00 


COMSTAR  T/F 


f/ifflfe^PH 

;- 

^'^.    -■--    -..^38 

■■^«TS 

■       1'           '.z 

Tractor 
Friction 
Printer 


only 


COMSTAR 


w 


itic 


15  Day  Free  Trial -180  Day  Immediate  Replacement  Warranty 


Lowest  Priced,  Best  Quality,  Tractor- Friction  Printers  in  the  U.S.A. 

•  Fast  80-120-160  Characters  Per  Second    •  40,46,66,80,96, 132  Characters  Per  Line  Spacing 

•  Word  Processing    •  Print  Labels,  Letters,  Graphs  and  Tables     •  List  Your  Programs 

•  Print  Out  Data  trom  Modem  Services     •  "The  Most  Important  Accessory  for  Your  Computer" 


*STX-80  COLUMN 
PRINTER— $149.00 

Prints  full  80  columns.  Super  silent 
operation,  60  CPS,  prints  Hi-resolution 
graphics  and  block  graphics,  expanded 
character  set,  exceptionally  clear 
characters,  fantastic  print  quality,  uses 
inexpensive  thermal  paper!  Best  thermal 
printer  in  the  U.S.A.!  (Centronics  Parallel 
Interface). 

"DELUXE  COMSTAR  T/F 
80  CPS  PRINTER— $179.00 

The  COMSTAR  T/F  (Tractor  Friction) 
PRINTER  is  exceptionally  versatile.  It 
prints  8'/:"  X  11"  standard  size  single 
sheet  stationary  or  continuous  feed  com- 
puter paper.  Bi-directional,  impact  dot 
matrix,  80  CPS,  224  characters.  (Cen- 
tronics Parallel  Interface). 

Premium  Quality— 120  CPS 

COMSTAR  T/F  SUPER-10X 

PRINTER— $289.00 

COMSTAR  T/F  (Tractor  Friction)  SUPER- 
10X  PRINTER  gives  you  all  the  features 
of  the  COMSTAR  T/F  PRINTER  plus  a 
10"  carriage,  120  CPS,  9  x  9  dot  matrix 
wth  double  strike  capability  for  18  x  18 
dot  matrix  (near  letter  quality),  high 
resolution  bit  image  (120  x  144  dot 
matrix),  underlining,  back  spacing,  left 
and  right  margin  settings,  true  lower 
decenders  with  super  and  subscripts, 
prints    standard,    italic,    block    graphics 


and  special  characters,  plus  2K  o(  user 
definable  characters!  The  COMSTAR  T/F 
SUPER-10X  PRINTER  was  Rated  No.  1  by 
"Popular  Science  Magazine."  It  gives  you 
print  quality  and  features  found  on 
printers  costing  twice  as  much!!  (Cen- 
tronics Parallel  Interface)  (Better  than  Ep- 
son FX80). 

Premium  Quality— 120  CPS 

COMSTAR  T/F  SUPER-15'/6" 

PRINTER-$379.00 

COMSTAR  T/F  SUPER  15'A"  PRINTER 
has  all  the  features  of  the  COMSTAR  T/F 
SUPER-10X  PRINTER  plus  a  15%"  car- 
riage and  more  powerful  electronics 
components  to  handle  large  ledger 
business  forms!  (Better  than  Epson  FX 
100). 

Superior  Quality 

SUPER  HIGH  SPEED-160  CPS 

COMSTAR  T/F  10" 

PRINTER-S399.00 

SUPER  HIGH  SPEED  COMSTAR  T/F 
(Tractor  Friction)  PRINTER  has  all  the 
features  of  the  COMSTAR  SUPER-10X 
PRINTER  plus  SUPER  HIGH  SPEED 
PRINTING— 160  CPS,  100%  duty  cycle, 
8K  buffer,  diverse  character  fonts, 
special  symbols  and  true  decenders,  ver- 
tical and  horizontal  tabs.  RED  HOT 
BUSINESS  PRINTER  at  an  unbelievable 
low  price!!  (Serial  or  Centronics  Parallel 
Interface) 


Superior  Quality 

SUPER  HIGH  SPEED-160  CPS 

COMSTAR  T/F  15%" 

PRINTER— $529.00 

SUPER  HIGH  SPEED  COMSTAR  T/F 
15'A"  PRINTER  has  all  the  features  of  the 
SUPER  HIGH  SPEED  COMSTAR  T/F  10" 
PRINTER  plus  a  15'A"  carriage  and  more 
powerful  electronics  to  handle  larger 
ledger  business  forms!  Exclusive  bottom 
paper  feed!! 


PARALLEL  INTERFACES 

For  VIC- 20  and  COM-64- $69.00 
For    Apple  Computers—  $79.00 

NOTE:     Other     printer     interfaces     are 
available  at  computer  stores! 


Double 

Immediate  Replacement 

Warranty 

We  have  doubled  the  normal  90  day  war- 
ranty to  180  days.  Tfierefore  if  your 
printer  falls  within  "180  days"  from  the 
date  of  purchase  you  simply  send  your 
printer  (o  us  via  United  Parcel  Service, 
prepaid.  We  will  IMMEDIATELY  send  you 
a  replacement  printer  at  no  charge, 
prepaid.  This  warranty,  once  again, 
proves  that  WE  LOVE  OUR 
CUSTOMERS! 


Add  $17.50  for  shipping,  handling  and  insurance.  WE  DO  NOT  EXPORT 
TO  OTHER  COUNTRIES  EXCEPT  CANADA. 


^__ ___  ,.„„„„„.  • 

1  Enclose  Cashiers  Check,  Money  Order  or  Personal  Check.  Allow  14  days  l 

:  tor  delivery,  2  to  7  days  for  phone  orders,  1  day  express  mail!  Canada  • 

I  orders  must  be  in  U.S.  dollars.  VISA  —  MASTER  CARD  ACCEPTED.  We  ' 

ship  CO.D.  I 


p|^^^^Pf^|2ES    <WE  LOVE  OUR  CUSTOMERS) 

BOX  550,  BARRINGTON,  ILLtNOIS  S0010 
Phon*  312/382-5244  to  ordtr 


SUPER-10"  ABCDEF-GM  X  JKI_M^4aRClRS-rU  VM  X  V  Z 

ABCDEF&HIJKLMNQPQRBTUVMXVZ  1.23'^S^7e«?0 
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List  *59^5 
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Turn  Your  Commodore-64  Into  A 
Sophisticated  Musical  Instrument 

"The  Program  That  Gives  You  A  Reason  To  Buy  A  Commodore-64.  '^ 

New  York  Times. 


With  Musicalc  anyone  can  •  Make  and  record  sophisticated  music  •  Print  out  sheet  music  from  your 

creations  •  Turn  your  computer  into  a  Cord  Organ  •  No  Experience  Necessary! 

To  prove  it  we  will  send  you  a  Free  Record  with  music  created  on  a  Commodore  64  computer  and  Musicalc 

To  get  your  Free  Record  call  Protecto  Enterprizes 


MusiCalc 


MusiCak: 


ScoreWriter 

Combine  with  Musicalc  1  and  a 
graphics  printer  (Super-lO)  to 
produce  sheet  music  from  your 
original  composition.  List 
$39.95  Sale  $29.95  Coupon 
$24.95 


Synthesizer  &  Sequencer 

This  1st  step  turns  your  Commodore-64  into  a 
Cord  Organ  —  a  three  voice  synthesizer  and  fully 
interactive  step  sequencer  play  along  with  pre- 
recorded songs  or  develop  your  own  and  record 
the  music  you  create. 

List  $59.00.  Sale  $39.95. 


^ 


MusBfCalc 


Keyboard  Maker 

Turns  your  Commodore-64  into  a 
musicol  keyboord.  Comes  with 
over  30  preset  keyboard  scales 
from  Classical  to  Rock.  Requires 
Musicalc  1.  List  $39.95,  Sole 
$29.95.  Coupon  $24.95. 


] 


•  LOWEST  PRICES  •  15  DAY  FREE  TRIAL  •  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL  •  OVER  500  PROGRAMS  •  FREE  CATALOGS 


Add  S3  00  fof  shipping  hondling  and  insuronce.  Illinois  residents 
please  odd  6'/.  tax.  Add  S6.00  (or  CANADA.  PUERTO  RICO,  HAWAII. 
ALASKA  APO-FPO  orders.  Conadion  orders  must  be  in  U.S.  dollors, 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES. 

Enclose  Coshiers  Check.  Money  Order  or  Personal  Check.  Allow  IJ 
days  for  delivery.  2  to  7  days  lor  phone  orders.  1  day  express  moil  I 
VISA  -  MASTER  CARD  -  C.O.D. 

No  C,0,D.  lo  Conodo,  APO-fPO, 


C|UTCDpD|7CC    IWE  LOVE  OUR  CUSTOMEnSi 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Phon*  312/382-5244  to  order 


COI\/IMODORE-64 


CHALK  BOARD 

COLOR  TOUCH  TABLET 


Chalk     Board     Touch-Tablet     is     a 

revolutionary  new  12"  x  12"  touch  sensitive 
surface     that     lets     you      bypass     your 
COMAAODORE-64  Computer  keyboard.   Just 
touch  the  pad  and  watch  your  ideas  appear 
on  your  t.v.  screen  in  living  color!  Power  Pad 
is  drawing  pad,  color  graphics,  color  canvas 
and    piano    keyboard,    jigsaw    puzzle,    game 
board  for  any  age.  A  fantastic,  entertaining, 
learning    experience!     •    Free    $29.95    Paint 
Brush  Program! 


List  Price  $129.90 


Sale 


$59.00 


LEARNING  PAD  SALE!  I! 


•  Bigger  —  Better  —  Lower  Price  Than  KoaJapad!  •  Fantastic  Learning  Tool  •  First  Graders  To  Senior 
Citizens  •   Learn  By  Touching  Tablet  •  Color  Graphics  •  Drawing  Pod  •   Game  Board  •  Jigsaw  Puzzle 

•  Piano  Key  Boord  •  Music*  Visual  Arts  •  Math  •  Science*  Apple  (Macintosh)  Mouse  Copability 


LEO'S  XECTRIC  PAINT  BRUSH.  When 
you  use  Leo's  'Lectric  Paintbrush 
software,  you  are  reody  for  magical, 
multi-colored  electronic  finger 
painting.  Make  your  own  pictures. 
Color  them.  Change  them.  Save 
them.  List  S29.95.  Sale  (Free  witii 
purchase  of  CHALKBOARD 
LEARNING  PAD  for  $59.00).  (Cart) 


BEARJAM.  As  children  play  this 
game  and  feed  the  friendly  animated 
bear,  they  sharpen  the  visual  skills  so 
essential  for  success  in  leering, 
BeorJam  is  a  great  reading-readiness 
game.  List  $39.95.  Sale  *29.95.  (Cart) 


LEARNING  PAD  PROGRAMMING 
KIT.  Once  you're  familiar  with  the 
COMMODORE-64  Computer  keyboard 
and  you  understand  beginning  BASIC, 
the  LEARNING  PAD  progromming  kit 
sets  you  free  to  develop  games  and 
programs!  List  $29.95,  Sale  »19.9S. 
(Disk) 


PIANO  MAESTRO.  Chalk  Board's 
MicroMaestro  software  turns  your 
PowerPad  into  a  piano  keyboard. 
Touch  the  keys.  You  hear  the  music 
and  see  your  composition  right  on  the 
screen.  It  is  the  fun  way  to  learn 
music.  List  $29.95.  Sale  $24.95  (Cart) 


LOGICMASTER.  With  over  180,000 
different  game  designs  ...  and  over 
200  million  secret  codes 
LogicMaster  is  the  most  fun  you've 
ever  had  with  your  powers  of 
reasoning.  Solve  the  codes  all  by 
yourself  or  work  together  with  family 
or  friends.  List  $39.95.  Sale  $29.95. 
(Cart) 


LEO'S  GOLF  LINKS.  This  golf  game 
for  one  or  more  ployers  lets  you 
design  each  hole,  including  fairways, 
roughs,  traps  and  greens.  Then  using 
woods,  irons  and  putters,  you  play 
the  course.  List  $39.95.  Sale  $29.95. 
(Cart) 


Add  S3-CX)  for  shipping,  handling  and  in&uronce.  Illinois  residents 
please  add  67.  tax.  Add  $6.00  fcjr  CANADA,  PUERTO  RICO.  HAWAII. 
ALASKA.  APOFPO  orders.  Canadian  orders  must  be  in  U.S.  dollars. 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES, 

Enclose  Cashiers  Check,  Money  Order  or  Personal  Check,  Allow  14 
days  for  delivery.  3  to  7  days  lor  phone  orders,  1  day  express  moil ! 

VISA  —  MASTER  CARD  —  C.O.D. 
NoC.O.D.  loConada,  APO-FPO. 


CMTCDpD|7CC    (WELOVEOURCUSTOMEHSl 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Phone  312/382-5244  to  order 


580 


585 
590 


595 
597 


599 

600 

610 

620 
630 

640 
1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

2000 

2010 
2100 
2200 

2210 

2400 


Z  =  6:FORPS=1TO20:PRINT3PS-1  ,  CHR* 

<128)  ;  : PR  I  NTS PS +  31 , CHR* ( 128)  ;  :  B 

aSUB2000: NEXT 

SOUND  10,2 

FOR     PS=19     TO     -1     STEP-1  :  PRINT3PS  + 

6,  CHR*  (120)  ;  :  PR  I  lvJT3PS  +  38  ,  CHR*  (  1 

28) ; : GOSUB2000: NEXT 

SOUND  50,2:NEXT 

FORI=0TO16: S0UND255, 1:SET(14+I, 

3+1,5)  :SET(14+I+RND(2) ~RND  C2)  , 3 

+I+RND(2)-RND(2>,RND(S)):NEXT 

FORI=1TD100:SET(25-RND(10)+RND< 

10) , 16-RND(10)+RND<10) ,RND(9)-1 

) : NEXT 

FORI=1TO50:CLSRND(9) -1: NEXT: FOR 

l=255T0iSTEP-17;S0UNDI  ,  1:NEXT 

PRINT"PLAY  AGAIN,  HUMANOID?  (Y/ 

N )  :  "  ; 

A$=INKEY*: I FA*= " " THEN620 

IF  A*="Y"  THEN  PTS~0 : TM=0 ; G0TD2 

00 

CLS: END 

DATA  1111111111H:10 

1111111 

DATA  22222222221  <:  10 

2222222 

DATA  33333333321 t 10 

3333333 

DATA  1111111132111111111111231 

1111111 

DATA  2222222132222222222222231 

2222222 

DATA  3333332133333333333333331 

2333333 

DATA  1111132111111111111111111 

23111  11 

DATA  2222132222222222222222222 

2312222 

ON  Z  GOSUB  2100,2200,2210,2400 

, 2500, 2600 

RETURN 

PRINTERS, CHR* ( 1 45 );: RETURN 

PRINT3PS,CHR* ( 147) CHR* (146) 

ETURN 

PRINT3PS,CHR*(151)CHR*(146) ; :P 

RINT3PS+32,CHR*<14B> ; : RETURN 

PRINTERS. CHR* (150) ; CHR* ( 158) ; C 

MR*  C 146)  ;  : PR  I  NTS PS +  32 , CHR* ( 148 

JCHR* ( 156) ; : RETURN 


2500 


2600 


2999 
3000 


SPACES>1111 
SPACES> 1222 
SPACESJ 1233 


:  R 


PRINT3PS, CH 
*  (  157) CHR* ( 
TS>PS  +  32,  CHR 
( 156) CHR* ( 1 
PRINT3PS+1 , 
HR* (159) CHR 
, CHR*  C 140) C 
R* ( 155) CHR* 
URN 

REM  «f;T:i:iJilS 
R=RND (0) : R= 
N 


R*< 151 )CHR* (157)CHR 
157)CHR*(146) ; :PRIN 
*(148)CHR*(156)CHR* 
56) ; : RETURN 
CHR* ( 147) CHR*  < 159) C 
*  (  147)  ;  : PRINT3PS  +  32 
HR*  C 1S5) CHR* ( 155) CH 
(159) CHR* ( 152) ; : RET 


-1 
<R< 


,0,1* 
,3)  -  CR>. 


6) :RETUR 


A  game  of  "Devastator"  is  just  starting.  TI  version. 
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Program  4: 

Devastator  -  TI-99/4A  (Extended  BASIC)  Version 

by  Patrick  Parrish,  Programming  Supervisor 

99  REM  DEVASTATOR 

100  GOTO  150 

110  FOR  F=12  TO  14  ::  CALL  COLOR(F, 

2,l)s:  NEXT  F  ::  RETURN 
120  FOR  F=10  TO  16  ::  CALL  SCREEN CF 

)::   NEXT  F  ::   CALL  SCREEN(2):s 

RETURN 
130  FOR  V=l  TO  30  ::  CALL  SOUND(Dl, 

F1,V,F2,V)::  NEXT  V  ::   RETURN 
140  FOR  R0W=2  TO  7  : :  CALL  HCHARCRO 

W, 22, 32, 7)::  NEXT  ROW  ::  RETURN 
150  RANDOMIZE 
160  DIM  E*(13) 

170  CALL  CLEAR  ::  CALL  SCREEN(2) 
180  GOSUB  530 
190  GOSUB  1030  : :  CALL  CLEAR  : :  CAL 

L  SCREEN(2) 
200  FOR  H=2  TO  14  ::  CALL  C0L0R(H,2 

, 2) : :  NEXT  H 
210  FOR  J=l  TO  4  ::  FOR  1=1  TO  11  : 

:  CALL  HCHAR ( I  ,  INT  (RND*28)  +3, 46 

) : :  NEXT  I  : ;  NEXT  J 
220  DISPLAY  AT(13,  1  ):"''''  ^  '  =  ''  *a 

{6  SPACES>b  ■'<'<'<'<'■■ 
230  DISPLAY  AT ( 14, 1 ) : "hhhhhhhhhi  ' 

ih     SPACES}  '  jhhhhhhhhh " 
240  DISPLAY  AT ( 15,  1 )  :  "ppppppppqh  " 

<.6     SPACEGJ  'hr  pppppppp  " 
250  DISPLAY  AT  (  16,  1  )  :  "pppppppqpha  ■^  ' 

'   '  '  'bhprppppppp " 
260  DISPLAY  AT  (17,  1  )-."•''"'  'appihhh 

hhhhhjppb'  ''''"" 
270  DISPLAY  AT ( 18,  1 )  :  "  '  '  '  '  'a 'pqpppp 

pppppprp  b 
2B0  DISPLAY  AT  (  19,  1 )  :  "hhhhi  '  'qppppp 

pppppppr  '  'jhhhh" 
290  DISPLAY  AT (20, 1 ) : "hhhi h 'a ' ' ^ ' ^ ' 

■'''■=''' b  '  h  j  h  h  h  " 
300  DISPLAY  AT <21 ,  1 ):  "hhihha ''"'''  ' 

,,,<,,,,  'bhh jhh" 
310  DISPLAY  AT (22, 1 > : "pqhhi hhhhhhhh 

hhhhhhhhhhjhhrp" 
320  DISPLAY  AT (23, 1 ) : "qphi hhhhhhhhh 

hhhhhhhhhhh  jhpr  "  ::  DISPLAY  _AT  ( 

24,  1)  :  "ppih hhhhhhhhh hhhhhhhhhhh 

h  j  p  p  '■ 
330  FOR  J=l  TO  2  : :  FOR  1=12  TO  14 

:  '.     CALL  HCHAR  (  I  ,  INT  (RND*6) +14,4 

6) : :  NEXT  I  : :  NEXT  J 
340  DISPLAY  AT  (2,  24)  :  CHR*  (  120)  S(CHR* 
(121)::   DISPLAY  AT ( 3 , 23 )  : CHR*  (  1 

22)  &CHR*(  136)  ?<CHR*  (  137)  SiCHR*  (12 

3> 


TI-99/4A  Version  Notes 


The  TI-99/4A  version  of  "Devastator"  (Pro- 
gram 4)  is  written  in  Extended  BASIC  and  re- 
quires a  joystick.  As  the  game  begins,  you  are 
cruising  above  the  ominous  Devastahyr.  A 
guardian  ship  from  Dt'tvjsfrr/cr  appears.  You 
must  eliminate  this  alien  ship  and  at  least  nine 
others  that  follow  in  a  given  period.  If  you  fail. 
Devastator  blasts  Earth  with  a  lethal  laser. 

Two  levels  of  difficulty  are  offered  in 
this  version.  On  either  level,  you  can  elimi- 
nate the  guardian  ship  by  simply  positioning 
the  cross  hairs  over  them  using  the  joystick. 
The  main  difference  between  skill  levels  is 
the  size  of  these  guardian  ships  (which  are 
actually  sprites).  The  CALL  MAGNIFY  state- 
ment in  line  420  produces  ships  of  two  sizes. 
Consequently,  on  level  one,  guardian  ships 
are  large  and  can  be  easily  destroyed,  but 
level  two  features  smaller  ships  which  require 
greater  dexterity  to  eliminate. 

The  priliiary  game  loop  for  the  program 
is  from  line  450  to  510.  The  counter  W  in  line 
500  is  increased  each  time  through  the  loop. 
When  W  reaches  200,  the  game  is  over  and 
Earth  is  either  blasted  or  not,  depending  on 


whether  you've  destroyed  the  required 
number  of  guardian  ships.  If  the  game  as 
written  is  just  too  easy  or  too  difficult  for  you 
on  the  skill  levels  offered,  vary  the  time  limit 
(200)  to  achieve  a  comfortable  level  of  play. 

The  programming  techniques  used  here 
might  aid  you  in  writing  your  own  programs 
on  the  TI.  You  may  notice  that  program  ex- 
ecution appears  to  pause  between  the  title 
page  and  the  appearance  of  the  playfteld 
(background).  Actually,  the  playfield  is  being 
set  up,  but  since  the  foreground  and  back- 
ground colors  of  all  characters  are  defined  as 
black,  nothing  appears  at  this  point  because 
the  screen  color  is  also  black.  When  all  char- 
acters on  the  playfield  have  been  printed, 
color  codes  are  assigned  simultaneously 
using  the  CALL  COLOR  statement  so  that 
the  entire  game  field  appears  at  once. 

Another  trick,  also  achieved  with  color 
coding  of  characters,  gives  the  game  a  3-D 
effect.  The  Devastator  is  first  printed  in  lines 
220  to  320,  using  redefined  characters  from 
three  character  sets.  By  constantly  shifting 
the  foreground  and  background  colors  of 
these  character  sets  in  line  450,  an  illusion  of 
movement  is  produced.  Thus,  as  you  watch 
the  screen,  you  feel  that  you  are  actually 
circling  this  colossal  ship. 


350     DISPLAY     AT  <4,  22)  :  CHR$  (  124)  ?<CHR$       520 

(125)?<CHR*(13a)?<CHR*(i39)  &CHR*  <       530 

125)  ?(CHR*  (126) 
360  DISPLAY  AT  (5,  22)  :  CHRt  (  127)  S.:CHR$   540 

(  1  25)  J<CHR*  (  140)  JiCHR*  (  141  )  &CHR*  <   5  50 

125)  S.CHR*  (128) 
370  DISPLAY  AT  (6,  23)  :  CHR*  (  129)  ?<CHR*   560 

(  142)  .!<CHR«  (  143)  S<CHR*  (  130)  570 

330  DISPLAY  AT  (7,  24)  :  CHR*  (  131  )  ?<CHR* 

(132)  580 

390  CALL  COLOR < 12, 6, 1 ) : :   CALL  COLOR 

(13,6,1)::  CALL  COLOR ( 1 4 , 3 , 6 >      590 
400  FOR  F=2  TO  3  : :  CALL  CDL0R(F,16 

, 1 ) : :   NEXT  F 
410  CALL  SPRITE (#2, 108, 1 1 , 80, 80) 
420  CALL  MAGNIFY (LEVEL) : :  SPEED=8  : 

:  TOL=30  ::   IF  LEVEL=3  THEN  TOL 

=  15 
430  CALL  SPRITE (#1  ,  100,  16,  100,  1  10) 
440  A=9  : :   B=10  : :   C=l 1 
450  T  =  A  :  :  A  =  B  :  :  B  =  C  :  :  C  =  T 
460  CALL  COLORCA, 2, 5) : :  CALL  COLOR ( 

B,2,14)::  CALL  C0L0R(C,2,7) 
470  CALL  MOTION (#2,  INT  (RND*40-20)  ,  I 

NT  (RND*40-20)  ) 
480  CALL  JOYST (  1  ,  X  1  , Yl  )  :  :  CALL  MOT  I 

aN(#l,-Yl«S PEED, XI* SPEED) 
490  CALL  COINC (#1 , «2, TDL, B) : :   IF  G 

THEN  BOSUB  700  670 

500  W=W+1  ::   IF  W>200  THEN  770 
510  BOTO  450 


REM 

A*  =  " 

:  :  C 

CALL 

FOR 

CHAR 

CALL 

FOR 

ALL 

FDR 

LL  C 

DATA 

000F 


DEFI 

$="8 
CHA 

I='?6 

(  I  ,  A 
CHA 

1=0 

CHAR 

1=0 

MAR  ( 
000 

0FE, 


NE  CHARS 

B$=" 01 02 0408 10204 080" 
040201008040201  " 
R(95, B*) 

TO  112  STEP  8  : :  CALL 
*)::  CALL  CHAR(I+1,B$) 
R ( 1+2, C*) : :  NEXT  I 
TO  13  : :  READ  E* ( I > : :  C 
(  120+1 ,E« ( I )  )  :  :  NEXT  I 
TO  7  :  :  READ  E*  (  I )  :  :  CA 
1  +  136, E*  (  I)  )  :  :  NEXT  I 
0000 
01030F1F3F7FFFFF 


600  D 
3 

610  D 

1 
620  D 

8 
630  D 

8 
640  D 

0 
650  D 

F 
660  D 

0 


ATA  8 
03030 
ATA  0 
01010 
ATA  F 
F0E0C 
ATA  F 
66681 
ATA  E 
F8F0F 
ATA  F 
07070 
ATA  0 
80800 


0C0F0F 
3, FFFF 
080808 
0, C0C0 
F7F3F3 
0, 7F0F 
EF0000 
0 

0F07F7 
0, 7F7F 
0F090a 
3, F0FF 
3030  10 
0 


BFCFEFFFF, 000101010 

FFFFFFFFFFFF 

0C0C0C0C0, 030303030 

C0C0B0808000 

F1F0F0703,FFFEFCFCF 

000000000000 

000000000, 0B00667C1 

F7FFFFFFF, 081BF8FaF 

7F3D1C0E0201 

800180000, 03070F0F0 

FFFEFCFCF8F0 

101010  101, E0C0C0C08 


CALL  CHAR ( 108, " 00073FE2E2E2FFFF 
667F0C1C00000  00000E0FC4  74  7  47FFF 
F' ^FE3038000000  00" ) 
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680 


690 
700 
710 

720 

730 


CALL  CHAR (100, "0000000003040808 

FF0a 0804030000 008080808 0E09088 a 

8FFa888'?0E080a080") 

RETURN 

REM  ALIEN  SHIP  DESTROYED 

CALL  DELSPRITE <#2) : :   CALL  MDTIO 

0.0) 

SCREEN < 15) : :  CALL  SCREEN(1 


740 
750 

760 
770 
780 
790 


800 
810 


820 
830 

840 


850 
860 

870 


880 


890 


900 


910 


920 


930 

940 
950 
960 


N  (#1  , 

CALL 

0) 

CALL  SCREEN C 

24  STEP  4  ; ; 

DVOL) : :  NEXT 

CALL  SCREENC 


) : :  FOR  DVDL=1  TO 
CALL  saUND<100, -7, 
DVOL 
'.) 


:  GOSUB  140 

: CHR* ( 133) : : 
: CHR« (133) 
: CHR*( 133)&CH 
AT  C2, 26  +  J)  ;CH 


D=D+1  ::  CALL  SPR I TE C #2 , 1 08 , 1 1 , 
INT (RND* 192>  +1 ,  INT (RND*256) +1 ) 
RETURN 

IF  D<10  THEN  ai0 
SOTO  950 

FOR  1=30  TO  1  STEP  -2  : :  CALL  S 
OUND (-1000, -5, I ) : :  NEXT  I  :;  RE 
TURN 

REM  EARTH  DESTROYED 
GOSUB  790  ::  FOR  1=8  TO  0  STEP 
-1  ::  CALL  HCHAR ( 7+ I , 25- 1 , 95 ) : : 
CALL  COLOR (8, INT (RND»8) +9, 1 ) : : 
NEXT  I 
FOR  J=l  TO  40  : :  NEXT  J 
FOR  1=8  TO  0  STEP  -1  ::  CALL  HC 
HAR (7+1 , 25-1 , 32)  :  :  NEXT  I 
GOSUB  120  ::  D1=-I00  ::  Fl=-6  : 
:  F2=110  ::  GOSUB  130  ::  GOSUB 
120  : :   GOSUB  1 10  : 
J=0  : :   1=0 
DISPLAY  AT(1,23+I> 
DISPLAY  AT(1,26+J) 
DISPLAY  AT(2,22  +  n 
R$ ( 133) : :  DISPLAY 
R$  t  133)S{CHR$  <  133) 

DISPLAY  AT  (3,  21  +  1  )  :  CHR*  t  133)  .!<CH 
R$  (  133) &CHR$ < 133)  :  :  DISPLAY  AT ( 
4,  25  + J)  :CHR*  <  133)  S(CHR*  (  133)  &CHR 
* ( 133) 

DISPLAY  AT  (5,  22+1  >  :  CHR*  (  133)S<CH 
R«C133)::  DISPLAY  AT ( 5 , 25+ J ) : CH 
R«  (  133)  SiCHR$  (  133)  &CHR*  (  133)  :  :  G 
OSUB  120 
DISPLAY  AT (6, 25+J ) : CHRS ( 133) : : 

AT<7,23+I) :CHRt(133) :: 

AT(7,27+J) :CHR«(133) 

AT  (8,  22+1  ) 

:   DISPLAY 
R*  (  133)  ?<CHR$  <  133) 
CALL  COLOR ( 13, 9, 1 ) : :  GOSUB  1 
::  Dl=30  ::  Fl=-6  ::  F2=110  :: 
GOSUB  130  : :   IF  J=l  THEN  940 
I=-l  ;;   J=l  ::  GOSUB  110  ::  GOS 
UB  120  : :  SOTO  860 
FOR  F=l  TO  100  ::  NEXT  F 
CALL  DELSPRITE (ALL)  :  :  W  =  0 
CALL  CLEAR  ::  CALL  SCREEN(2):: 
DISPLAY  AT (8, 1 ) : "ALIEN  SHIPS  DE 
";D 

THEN  HD=D 

AT ( 13, 6) : "BEST 


DISPLAY 
DISPLAY 
DISPLAY 
R* ( 133) 


: CHR* ( 133) 
AT (9+J, 24) 


CLEAR  : :  GOTO  200 
1020  DISPLAY  AT(2l,6>:"S0  LONG"  :: 

FOR  1=1  TO  500  ::  NEXT  I  : :  ST 

OP 
1030  FOR  J=2  TO  8  : :  CALL  COLOR(J,l 

, 1 ) : :  NEXT  J 
1040  PRINT  "<:4  SPACES>D  E  V  A  S  T  A 

TOR"   : :  PRINT  : :  PRINT 
1050  PRINT  "YOUR  MISSION  IS  TO  PROT 

ECT"  ::  PRINT  "EARTH  FROM  THE 

APPROACHING" 
1060  PRINT  "DEVASTATOR.   SHOOT  DOWN 

AT"  ::  PRINT  "LEAST  10  GUARDIA 

N  SHIPS  TO" 
1070  PRINT  "ENABLE  YQUR  COMRADES  TO 

"  :;  PRINT  "DESTROY  THE  DEVAST 

ATOR. " 
1080  PRINT  ::  PRINT  "YOU  HAVE  ONLY 

LIMITED  TIME"   ::  PRINT  "IN  WHI 

CH  TO  COMPLETE  YOUR" 
1090  PRINT  "MISSION.  POSITION  YOUR" 
::  PRINT  "CROSSHAIR  WITH  THE 

JOYSTICK. " 
1100  FOR  J=2  TO  8  : :  CALL  C0L0R(J,1 

5,1)::  NEXT  J 
1110  PRINT  ::  PRINT  "ENTER  YOUR  SKI 

LL  LEVEL  (  1 , 2)  , CAPTAIN?"  ::  ACC 

EPT  AT (23, 10) BEEP  VftLIDATE<"12 

") SIZE(i) :LEVEL$ 
1120  LEVEL=5-VAL (LEVELS) 
1130  GOSUB  790 
1140  PRINT  ::  PRINT  ::  PRINT  "THE  D 

EVASTATOR  IS  APPROACH-" 
1150  PRINT  "ING.  GRAB  YOUR  JOYSTICK 

,"  ::  PRINT  "AND  PREPARE  TO  DO 
BATTLE. " 
1160  FOR  1=1  TO  750  ::  NEXT  I 
1170  RETURN 

Program  5: 

Devastator  -  Apple  II  Version 

by  Todd  Koumrian 

5   TEXT  s  HOME  i  VTAB  10:  HTAB  15s  PRINT 

"READING  DATA" 
10   GOSUB  8000 
15   HGR  :  POKE   -  16302,0: EX  =  140: EY  = 

90: Q  =  1:DL  =  10 


<CH 

CH 


ROUND; 


STROYED: 
970  IF  D>HD 
980  DISPLAY 

;  HD 
990  D=0  ::  DISPLAY  AT ( 1 7 , 1 ) : " PLAY  A 

GAIN,   CAPTAIN  (Y/N)?" 
1000  CALL  KEY (0, KEY,ST) : :   IF  ST=0  T 

HEN  1000 
1010  IF  (KEY  =  a9) +  (KEY=121  )  THti<  CALL 
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Another  immdcr  is  about  to  appear  in  the  Apple  version  of 
"Devastator." 


Apple  Devastator 

Todd  Koumnan 

"Devastator"  for  the  Apple  (Program  5)  is  a 
joystick-controlled  hi-res  game  written  in 
Applesoft  with  several  machine  language 
(ML)  subroutines.  When  playing  Devastator, 
you  need  not  hold  down  the  fire  button; 
merely  placing  the  cross  hairs  on  the  moving 
alien  interceptor  will  insure  its  destruction. 
However,  if  you  take  too  long,  Devastator  will 
have  enough  time  to  destroy  Earth. 

The  cross  hairs  and  the  alien  interceptors 
are  drawn  using  shape  tables.  The  Applesoft 
SCALE  and  ROT  commands  are  used  to 
create  the  arrival  and  explosion  of  the  inter- 
ceptors. The  shape  table  is  POKEd  in  at  line 
8030  and  sits  at  $300. 

Earth  and  its  subsequent  destruction  are 
handled  by  short  ML  routines.  The  world- 
draw  routine  resides  at  $1900  and  is  CALLed 
once  every  loop  through  the  main  program 
or  whenever  the  image  is  garbled.  The 
routine  stores  the  bit  image  on  the  screen 
memory  from  a  data  table  at  $1980  to  $1A6F. 
World-draw  OR's  the  image  with  what  is  on 
the  screen  and  then  stores  it  so  that  it  does 
not  erase  what  is  already  there. 

The  destruction  of  Earth  at  the  end  of 
the  game  is  handled  by  an  ML  routine  at 
$1A70.  It  stores  random  garbage  in  a  ran- 
domly selected  line  and  byte  in  screen  mem- 
ory. Since  the  routine  confines  the  garbage 
to  the  area  around  the  image  of  Earth  for  a 
number  of  cycles  and  then  expands  it  to  the 
edges  of  the  screen,  the  explosion  appears  to 
expand  quickly.  The  ML  random  number 
generator  used  at  $1AFF  is  a  common  one 
that  generates  random  nybbles  and  masks 
them  together  for  random  byte  values.  A 
short  lookup  table  is  used  by  both  the  world- 
draw  and  world-destroy  routines  to  find 
quickly  the  addresses  of  the  first  40  lines  on 
the  screen.  The  table  lies  between  $1930  and 
$197F;  its  use  has  been  well  documented  in 
the  past  year. 

When  you're  typing  in  Devastator  for 
the  Apple,  it  is  important  that  the  data  be 
absolutely  correct.  If  the  data  for  the  shape 
tables  or  the  world-image  has  errors,  the 
images  will  look  malformed.  If  there  are  er- 
rors in  the  data  for  the  ML  routines,  the  com- 
puter will  most  likely  crash  or  write  all  over 
your  program.  If  you  have  a  printer,  use  it  to 
check  the  data,  and  remember  to  always 
save  your  program  before  you  run  it. 


20   SCALE"  1:  ROT=  0 

25   CALL  6400 

30   HCQLOR-  7;  HPLOT  0,100  TO  91,100  TO 

91,130  TD  189,130  TO  189,100  TO  27 

9,  100 
35   HPLOT  91,100  TO  0,191:  HPLOT  189,10 

0  TO  279, 191 
40   HPLOT  91,130  TO  30,191:  HPLOT  189,1 

30  TO  249, 191 
45   GOTO  3999 

50  I  =  I  +  1:  IF  I  >  3  THEN  I  =  1 
55   ON  I  GOTO  100,200,300 
100   HCOLOR=  7:  GOSUB  1000:  HCOLOR=  4:  QDSUB 

3000;  RETURN 
200   HCOLOR=  7:  BOSUB  2000:  HCOLDR=  4:  GOSUB 

1000:  RETURN 
300   HCOLaR=  7:  GOSUB  3000:  HCaLaR=  4;  BOSUB 

2000:  RETURN 
1000   HPLOT  0,105  TO  84,105:  HPLOT  86,1 

07  TO  86,132:  HPLOT  88,134  TO  190, 

134;  HPLOT  192,132  TO  192,106:  HPLOT 

195, 105  TO  279,105 
1010   RETURN 
2000   HPLOT  0,125  TO  63,125:  HPLOT  65,1 

27  TO  65,153:  HPLOT  69,155  TD  210, 

155:  HPLOT  212,152  TO  212,127:  HPLOT 

216, 125  TO  279, 125 
2010   RETURN 
3000   HPLOT  0,155  TO  33,155:  HPLOT  35,1 

57  TO  35,183:  HPLOT  38,185  TO  241, 

185:  HPLOT  243,182  TO  243,157:  HPLOT 

245, 155  TO  279, 155 
3010   RETURN 

3999  X  =  140: Y  =  90 

4000  HCOLOR=  0:  SCALE=  1:  DRAW  1  AT  X, 
Y:PX  =  X:PY  =  Y 

4010  X  =   PDL  (0) 

4020  Y  =   PDL  <1J:  IF  Y  >  124  THEN  Y  = 

124 
4030   IF  Y  <  6  THEN  Y  =  6 
4040   IF  X  >  95  AND  X  <  165  THEN  4060 
4050   IF  Y  >  94  THEN   HCDLOR=  7:X  =  PX: 

Y  =  PY:  DRAW  1  AT  PX,PY:  GOSUB  50 
4060   HCOLOR=  7:  DRAW  1  AT  X,Y 
4070   EOSUB  50 

4090   IF   ABS  (EY  -  Y)  >  9  THEN  4120 
4100   IF  T  =  3  AND  EX  -  X  >  3  AND  EX  - 

X  <  13  AND   ABS  (EY  -  Y)  <  6  THEN 

5000 
4110   IF  T  =  4  AND  EX  -  X  >   -  9  AND  EX 

-  X  <  13  THEN  5000 
4120   IF  F  =  0  THEN  4140 

4130   HCOLOR=  0:  SCALE=  SC:  DRAW  SS  AT 

EX,EY 
4140  W  =   INT  (  RND  CI)  «  2)  +  1:  IF  W  = 

2  THEN  W  =   -  1 
4150  EX  =  EX  +  W  *   INT  (  RND  CI)  «  30) 

:EY  =  EY  +  W  «   INT  (  RND  CI)  «  20 

) 
4160   IF  EX  <  0  THEN  EX  =  0 
4170   IF  EX  >  260  THEN  EX  =  260 
4180   IF  EY  <  a  THEN  EY  =  8 
4190   IF  EY  >  121  THEN  EY  =  121 
4200   IF  EX  >  95  AND  EX  <  165  THEN  4220 

4210   IF  EY  >  90  THEN  EY  =  90 

4220  DI  =  DI  +  Q  «   INT  (  RND  CD  *  20) 

:  IF  DI  >  100  THEN  DI  =  100:  IF   INT 
C  RND  (1)  «  2)  =0  THEN  Q  =   -  1 
4230   IF  DI  <  0  THEN  DI  =  0:  IF   INT  C  RND 
(1)  «  2)  =0  THEN  Q  =  1 
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^ 


4240 

IF  DI  <  30 

THEN  SC  =  1:SB  =  2 

4250 

IF  DI  >  30 
2:SS  =  2 

AND  DI  <  70  THEN  SC  = 

4260 

IF  DI  >  71 

THEN  SC  =  1:SS  =  3 

4270 

HCOLOR=  7: 
EXjEY 

BCALE=  SC:  DRAW  BS  AT 

4280 

T  =  SS  +  SC 

4290 

F  =  1 

4300 

TI  =  TI  +  1 

4310 

IF  TI  >  DL 

THEN  10000 

4320 

CALL  6400 

4330 

GOTO  4000 

5000 

HCOLOR=  0: 

DRAW  1  AT  X,Y 

5010 

HCOLDR=  7: 

FOR  I  =  SC  TO  SC  +  15 

5070 


5080 


5100 


5110 


8000 
8010 
B020 
8030 
9000 


9010 


9020 


60)  +  95:EY  = 
HCOLORf  7 

-  1:  ROT=  1 
;  DRAW  2  AT  E 
POKE  6953, 


SCALE=  I:  DRAW  SS  AT  EX.EY:  POKE 
6952,15  +  I:  POKE  6953,3;  CALL  695 
4:  NEXT 
5020   HCOLOR=  0:  FOR  I  =  SC  TO  SC  +  15: 
SCALE=  I;  DRAW  SS  AT  EX,EY:  POKE 
6952,30  +  I:  POKE  6953,3!  CALL  695 
4i  NEXT 
5030  SR  =  SR  +  10  *  (101  -  DI) 
5040   CALL  6400 
5050  DI  =  0 

5060  EX  =   INT  (  RND  (1)  » 

INT  (  RND  (1)  *  80) ; 

FOR  I  =  20  TO  1  STEP 

.05  «  I  -  1:  SCALE=  I: 

X,EY:  POKE  6952,1  +  40 

3:  CALL  6954:  NEXT 

HCOLOR=  0:  FOR  I  =  20  TO  I  STEP   - 
1:  ROT=  1.05  »  I  -  l!  SCALE=  I:  DRAW 
2  AT  EX,EY:  POKE  6952,20  +  I:  POKE 
6953,3:  CALL  6954=  NEXT 
5090  DD  =  DD  +  1 

IF  tDD  /  4)  =   INT  (DO  /  4)  THEN 
DL  =  DL  -  2 
IF  DL  <  2  THEN  DL  =  2 
5120  TI  =  0 
5130   GOTO  20 
I  =  76B 
POKE  232,0;  POKE  233,3 
READ  A:  IF  A  =   -  1  THEN  9030 
POKE  I, A: I  =  I  +  1:  GOTO  8020 
DATA    3,0,8,0,31,0,43,0,45,45,45 
,45,45,64,36, 164, 146,82,41,45,45,4 
5,45,221,219,219,219,210,54,54,0 

DATA  36,37,45,45,46,54,54,55,63 
,63, 60, 36,0, 36, 36,45, 36, 45, 45, 36, 4 
5,45,45,54,45,45,54,45,54,54,54,54 
,63 

DATA    54,63,63,54,63,63,63,36,63 
, 63, 36, 63, 36, 36, 0,-1 
9030  AD  =  6448 

9040   FOR  I  =  0  TO  1:  FOR  J  =  0  TO  1 ; 
K  =  0  TO  7:  POKE  AD  +  CI  «  16  + 


(4  «  K)  +  I:  NEXT 


8)  +  K,32  + 

:  NEXT 
9050   FOR  K  =  0  TO  7:  POKE  AD  +  (I 

)  +  K,32  +  <4  «  K)  +  I:  NEXT 
9060   FOR  Q  =  0  TO  4;  FOR  J  =  0  TO 

(Q  /  2)  =   INT  (Q  /  2)  THEN  W 
GOTO  9080 
9070  W  =  1 
9080   POKE  AD  + 

Q),12B  «  W 
9090   NEXT  ;  NEXT 

9299  FDR  I  =  6400  TO  6447: 
I, A:  NEXT  :  GOTO  9399 

9300  DATA  32,74,255,169,0,168,170,1 
33,0,164,0,185,48,25, 133,4,185,88, 
25, 133,3,160,17,189 
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FOR 
J  « 
NEXT 


t    16 

7:  IF 
=  0: 


(I  «  15)  +  10  +  J  +  (8  * 


READ  A:  POKE 


9310  DATA  128,25,17,3,145,3,232,20 
0, 192,23,208,243,230,0, 165,0,201,4 
0, 208, 221 , 32, 63, 255, 96 

9399  FOR  I  =  6528  TO  6974:  READ  A:  POKE 
I, A:  NEXT  :  RETURN 

9400  DATA  0,0,124,15,0,0,0,64,15,124, 
0,0,0, 112, 1,96,3,0,0,60, 14,0, 15,0, 
0, 14,31,56,28,0,0,7,59, 124,56,0,64 
,3,119,111,112,0,64,1,6,96,96,0,96 
,1,6,96,96, 1, 112,0,7,96,64,3 

9410  DATA  56,0,3,48,0,7,24,0,3,48,0,6 
,24,0,3,24,0,6,28,0,7,24,0,14, 12,0 
,6,24,0, 12,14,0,6,48,0,28,6,0,  102, 
55,0,24,6,0, 110,60,0,24,6,0, 124, 12 
4,0,24,6,0,56,64,1,24 

9420  DATA  6,0,112,0,3,24,6,0,96,1,0,2 
4,6,0,64, 1,0,24,6,0,96,7,0,24, 14,0 
,112, 12,0,28,12,0,48,12,0,12,28,0, 
24,24,0, 14,24,0,24,24,0,6,24,0,24, 
28,0,6,56,0,56, 12,0,7 

9430  DATA  112,0,48,14,64,3,96,1,112 
,6,96,1,64.1,96,7,96,0,64,3,96,3,1 
12,0,0,7,96,3,56,0,0,14,96,3,28,0, 
0,60,96, 1, 15,0,0, 112, 1,96,3,0,0,64 
,15,124,0,0,0,0, 124, 15,0,0 

9500   DATA    32,74,255,169,0,133,1,133, 

5. 162.5.181.78.149.6.202.208.249.1 
69.0, 133.4,32, 180,26.230,4, 165,4,2 

01.127.208.245.230.1. 165. 1.201.3.2 
08,233, 169,0, 133,4 

9510  DATA  32,219,26,230,4,165,4,201, 
127,208,245,230,5, 165,5,201,5,208, 
233, 32, 63, 255, 96, 32, 255, 26, 41, 63,2 
01,39, 16,247, 170, 189,48,25, 133,3, 1 
89,88,25, 133,2,32,255 

9520   DATA    26,41,7,201,7,240 

05, 17,168,32,255,26,145,2 

5,26,41,63,201,39, 16,247, 

8,25, 133,3, 189,88,25, 133, 

26,41,63,201,39,16 
9530   DATA    247,168,32,255,26 

,32, 14,27, 133, 12,32,14,27 

, 10,5,12,96,56, 165,7, 101, 

,133,6,162,4,181,6,149,7, 

9, 165,6,41, IS, 141,48, 192, 
9600   DATA   0,0,173,48,192,136 

6,41, 27, 240, 9, 202, 208, 245 

7,76,42,27,96 


,247,24, 1 
,96,32,25 
170, 189,4 
2,32,255, 

, 145,2,96 
, 10,10,10 
10, 101,11 
202, 16,24 
96 

,208,5,20 
, 174,40,2 


10000   HCOL0R=  7:  SCALE=  1:  FOR  1  =  127 
TO  20  STEP   -  5:  RaT=  I:  DRAW  2  AT 

135,1:  HCOLaR=  0:  ROT=  1+5:  DRAW 

2  AT  135, 1+5:  HCOLOR=  7:  NEXT 
10010   FOR  I  =  1  TO  7  STEP  2:  HPLDT  135 
+  1,0  TO  135  +  1,130;  HPLOT  135  - 

1,0  TO  135  -  1,130:  NEXT 
10020   CALL  676S;  HOME  :  VTAB  21:  HTAB 

7:  PRINT  "YOU  MADE  "SR"  POINTS  BEF 

ORE":  VTAB  22:  HTAB  9:  PRINT  "PLAN 

ETARY  DESTRUCTION" 
10030   VTAB  23:  PRINT  "PRESS  BUTTON  (0) 

FOR  ANOTHER  CHANCE  TO"; 
10040   VTAB  24;  HTAB  15:  PRINT  "SAVE  EA 

RTH"; 
10050   POKE   -  16301,0 
10060   IF   PEEK  (  -  16287>  >  127  THEN  1 

0060 
10070   IF   PEEK  (  -  16287)  <  128  THEN  1 

0070 
10080   CLEAR  :  GOTO  15 


IBM  Notes:  Devastator 


Charles  Brannon,  Program  Editor 

The  Devastator,  an  alien  ship  of  incredible 
power,  is  now  approaching  the  earth.  The 
Devastator  roams  the  galaxy,  destroying 
planets  and  absorbing  matter-energy  transfor- 
mations. Unfortunately,  it's  now  Earth's  turn 
to  be  the  matter. 

The  combined  technology  of  the  planet 
has  managed  to  assemble  a  primitive  ship, 
one  that  can  at  best  discourage  the  Devastator. 
You  are  the  pilot  of  that  ship,  mankind's  last, 
best  hope. 

You've  been  briefed  thoroughly:  The 
Devastator  sends  out  ten  ships,  one  at  a  time. 
Each  ship  plants  an  explosive  satellite  above 
the  earth.  After  all  ten  charges  have  been  laid, 
the  Devastator  detonates  them,  destroying  the 
planet  utterly.  It  didn't  expect  to  encounter 
you,  though.... 

You'll  need  an  IBM  PC  with  BASICA  (ad- 
vanced BASIC),  or  a  PCjr  with  Cartridge 
BASIC,  as  well  as  a  joystick,  to  play  "Devas- 
tator." After  you  RUN  the  game,  read  the 
instructions  to  familiarize  yourself  with  the 
game.  To  begin  play,  hold  the  joystick  to  the 
lower  right  corner,  then  press  the  button. 
This  lets  the  program  calibrate  itself  to  your 
joystick  (since  the  range  of  the  joysticks  is  not 
standard). 

After  a  pause,  while  the  game  is  being  set 
up  (the  background  colors  will  change  to  as- 
sure you  your  machine's  not  dead),  the  main 
viewscreen  appears,  inside  dotted  lines. 
You're  orbiting  the  massive  Devastator.  Terra 
Firma  is  in  the  upper  left  corner  of  the  view- 
screen,  and  a  dreaded  alien  ship  is  hovering 
about.  Move  the  cross  hairs  with  your  joystick, 
center  it  on  the  alien,  then  press  fire.  If  you 
made  a  hit,  the  screen  will  flash  red  and  a 
new  alien  will  appear.  But  if  you  miss,  the 
alien  ship  darts  away,  making  it  harder  to  re- 
aim.  The  alien  ship  will  plant  its  charge  after 
ten  seconds.  However,  the  more  ships  you 
hit,  the  faster  they  get. 

At  first  the  Devastator  hardly  notices  you, 
but  after  you  begin  to  destroy  the  ships,  the 
Devastator  modifies  them  to  reach  Earth  faster. 
Every  time  you  hit  five  ships,  future  ships  will 
reach  Earth  a  second  sooner.  Your  control 
panel  shows  you  a  countdown  of  time  re- 
maining before  the  charge  is  planted.  Each 


time  an  alien  lays  a  charge.  Earth  will  flash, 
and  the  deadly  ring  around  Earth  becomes 
more  complete.  When  ten  charges  have  been 
set.  Earth  shudders  in  nil-space,  then  flashes 
outward  at  the  speed  of  light.  You  may  not 
have  saved  Earth,  but  at  least  it  went  out  with 
a  bang! 

Programming  Tips 

The  program  uses  the  medium  resolution, 
four  color  mode  (SCREEN  1).  All  the  animation 
is  done  using  PUT  and  GET.  First,  three  views 
of  the  trench  are  drawn.  Each  one  starts  with 
a  different  color,  so  when  they  are  viewed  in 
succession,  you  get  the  illusion  of  moving 
bands,  which  in  turn  makes  you  feel  like  you 
are  orbiting  the  Devastator.  Each  view  is  saved 
in  an  array  (with  GET),  then  displayed  with 
PUT.  The  cross  hairs,  the  alien,  and  the  planet 
Earth  are  also  drawn,  then  nabbed  with  GET. 

To  animate,  you  must  erase  the  old  image, 
redraw  the  image  at  the  new  location,  erase, 
draw,  etc.  In  drawing  and  erasing,  though, 
it's  too  easy  to  erase  the  underlying  back- 
ground. The  trick  is  how  you  lay  down  the 
image.  If  you  just  place  it  on  the  screen,  you 
are  overlaying  and  destroying  the  dots  under 
the  image.  Instead,  you  can  use  a  quasi- 
mathematical  function  called  XOR  (exclusive 
OR)  to  both  draw  and  erase  the  ship.  Let's 
follow  XOR  with  a  binary  example. 

Let's  say  the  image  is  one  byte  wide  and 
one  line  high:  10101010.  This  would  create  a 
dotted  line  in  high  resolution,  or  a  colored 
line  ia,medium.  Underneath  the  image  might 
be  a  single  dot:  00100000.  When  the  two  bytes 
are  XOR'd  together: 

XOR  00100000     (background) 
10101010     (shape) 
10001010     (new  background) 

(The  rule  for  XOR  is  0  XOR  0  =  0,  0  XOR  1  =  1, 
1  XOR  0  =  1,  1  XOR  1=0.) 

Now  watch  the  magic  as  we  XOR  the 
answer  back  with  the  image: 

10001010    ( new  ba  ckgrou  nd ) 
XOR  10101010    (original  shape) 

00100000     (restored  background) 

The  image  is  erased,  but  the  original  dot 
is  back!  The  same  idea  applies  to  a  shape  made 
up  of  lots  of  bytes.  You  can  XOR  it  against  the 
background,  then  XOR  again  to  restore  the 
background  (and  erase  the  shape). 
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Program  6:  pc  And  PCjr 

by  Charles  Brannon,  Program  Editor 

1  SCREEN  0,0,0:CLS:GOSUB  30OO:GDBUB  4000 
zSTRIG  ON:  KEY  OFFjBOSUB  2000 

2  SCREEN  1: COLOR  0,0:DEFINT  A-Z 

3  DIM  SHAPE1(1002) ,SHAPE2C 1002) , SHAPES (1 
002), EARTH (52) , CROSS  CIO) , ALIEN «30) 

4  CX!=155/CX! :CY!=63/CY!:BQSUB  lOOO 

5  X=0:Y=0: XP=80: YP=100: TIME. LIMIT=10; SCO 
RE!=0 

6  TIME«="0O:OO:OO": LOCATE   21,14:PRINT    US 
ING    "CountdownstHf'jTIME. LIMIT 

7  AX=B0+140«RND:AY=30+60«RND:PUT     (AX, AY) 
, ALIEN 

lO    FOR    1=1    TO    3 

20  IF  1=1  THEN  PUT  (XP, YP) , SHAPE 1 , PSET 

30  IF  1=2  THEN  PUT  ( XP, YP> , SHAPE2, PSET 

40  IF  1=3  THEN  PUT  ( XP, YP) , SHAPE3,PSET 

60  PUT  (X,Y) , CROSS: X=STICK(0)«CX! +79: Y=S 

TICK(n«CY!+30:PUT  (X,Y)  ,  CROSS 

70  PUT  (AX,AY) , ALIEN:Z !=RND:AX=AX+4« (Z!< 

. 3) * (AX<220) -4* ( 2 ! >. 6) * (AX>XP)  :  Z ! =RND:  AY 

=AY+4«(Z!<.3)*(AY<B0)-4«(Z! >.6)*CAY>30) 

ao  PUT  (AX, AY> , ALIEN 

90  IF  TIMER>=T1ME. LIMIT  THEN  20O 

lOO  IF  STRIB(1)=0  THEN  NEXT:LOCATE  21,24 

sPRINT  USING  "tt#";TIME.LIMIT-TIMER5B0T0 

10 

110  IF  ABS(AX-X+4.5) >7  OR  ABS ( AY-Y+1 . 5) > 

6  THEN  PUT  CftX, AY) , ALIEN: GOTO  7 

115  SAVE.TIME=TIMER 

120  FOR  1=1  TO  15: PUT  (AX, AY ), ALIEN: COLO 

R  4: COLOR  0: SOUND  100+10*RND ( 1 > , . 5: NEXT 

125  ALIENS=ALIENS+l:SCDREi=SC0REI+10*(TI 

ME, LIMIT-SAVE. TIME) : IF  (ALIENS  MOD  5)=0 

THEN  IF  TIME. LIMIT  >1  THEN  T IME. LIMIT=TI 

ME.LIMIT-1 

130  ALIENB=ALIENS+1 : LOCATE  23, 15: PRINT"S 

core: "; SCORE !: GOTO  6 

200  PUT  (AX, AY) .ALIEN: FOR  1=1  TO  10:3OUN 
D  1*100,1: PUT  (90,31) , EARTH;  NEXT 

201  RADSl l=PI ! *36*CHARGES/ia0 

205  CHARBES=CHARGES+1 : RADS ! =PI ! «36«CHAR6 
ES/ ISO: CIRCLE  (100,41) , 13, 2, RADSl ' , RADS I 

210  LOCATE  22, i3:PRINT"ChargeB  5et:";CHA 
RGES:IF  CHARGES<10  THEN  6 
220  'Earth  e:;piodes 

230  FOR  11=1  TO  30  STEP  .3:PUT  (90-I'#RN 
D+I ! *RND,31-I ! *RND+I*RND) , EARTH: SOUND  10 
000*RND+100, . 1: COLOR  15*RND, RND: NEXT 
232  FOR  1=1  TO  40  STEP  2  : CIRCLE  (100,41 
), I: SOUND  100+150*RND, . liNEXT 
235  IF  SCORE! >HSCDRE!  THEN  HSCDRE I =SCQRE 
I 

240  CLS: COLOR  10, 0: PRINT "Score: "; SCORE  I : 
PRINT:  PRINT"HiQh  Score:  =';  HSCDRE  1  :  PRINT:  P 
RINT"Better  luck  next  ti me. ..": PRINT 
250  PRINT"Fress  fire  button  to  play  agai 
n." 

260  IF  STRIG(1)=0  THEN  260 

270  CLS: COLOR  0,O:G03UB  1165: ALIENS=0: CH 
ARGES=0:GQTO  5 

1000  DEF    SEG=S.HFOOO:  IF    PEEh;  (S.HFFFE)  =S<HFD 
THEN    A=INP(S<H3DA)  :OUT    S<H3DA,0:0UT    ?<H3DA 

,2    ELSE    OUT    S(H3D8,2 

1001  FOR  BASE=1  TO  3; CLS: COLOR  RND* 16 
1005  X=60:Y=0:Z=10;C=3-BASE:R=3:M=2 
1010  FOR  1=1  TD  7:C=-C«(C<3)+1 
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1020  LINE  (0,Y)-(X,Y) ,C:LINE  -(X,Y+Z),C: 

LINE  -(160-X,Y+Z) jCiLINE  - (160-X , Y) , C: LI 

NE-(160, Y) ,C 

1030  LINE  (O, Y+R)-(X-R, v+R) ,C:LINE  -iX-R 

, Y+Z+R+M) ,C:LINE  - ( 160-X+R, Y+2+R+M) ,C:LI 

NE  -<160-X+R, Y+R) , C: LINE- ( 160, Y+R) ,C 

1035  LINE  (160, Y)-(160, Y+R) ,C 

1040  X=X-R-1 : Y=Y+R+1 : Z=Z+M:R=R+.7 

1050  NEXT: COLOR  RND* 16 

i06O  Y=0:R=3:C=3-BASE 

1070  FOR  1=1  TO  7:C=-C* (C<3)+1 

lOao  PAINT  (1,Y+2),C,C 

1O90  Y=Y+R+l:R=R+.5 

11 GO  NEXT 

1110  LINE  <60,0)-(X,YV ,0:LINE  (100,0)~(1 

60-X,Y),0 

1120  LINE  (60, 10)-(X,Y+Z) ,0:LINE  (100,10 

)-(160-X, Y+Z) ,0 

1130  IF  BASE=1  THEN  GET  (0, 0) - ( 159, 49) , S 

HAPEl 

1140  IF  BASE=2  THEN  GET  (O, 0) - ( 159, 49) , S 

HAPE2 

1150  IF  BASE=3  THEN  GET  (0, 0) - ( 159, 49) , S 

HAPE3 

1160  NEXT: COLOR  O 

1162  CLS; CIRCLE  ( 10, 10) , 10, 1 sPAINT  (10,1 
O)  ,  1,  1:DRAW  "c3bm4,4rBdrerg3dn-fy2f  3g4h4e 
2hgLihu2hebf  3p3,  3" 

1163  GET  (0, 0) -C 19, 19) , EARTH: CLS 

1165  LINE  (3,0)-(3,6) :LINE  (O, 3) - (6, 3) : P 
RESET  (3,3): GET  (O, 0) - (6, 6) , CROSS 
1170  LINE  (76,29)-(241, 151) , 1,B, 13107 

1175  PUT  (90, 31), EARTH 

1176  PI i=3. 141593 

1177  CIRCLE  (30, 10) ,5, i,2*PI ! ,PI ! , .5:LIN 
E  (25, 10)-(35, 10) , 1:PAINT  (28, S) , 1 , 1 : CIR 
CLE  (30, 13) ,7,3, 2*PI! , PI!, .4: CIRCLE  (30, 
14) ,7,2,2*FI ! ,PI !, .4 

1180  GET  (22,4)-(38, 14),ALIEN:PUT  (22,4) 

.ALIEN: SEEP 

1185    DEF    SE6=S(HFOOO:  IF    PEEK  (?<HFFFE)=StHFD 

THEN  A=INP(?<H3DA)  :DUT  ?yH3DA,0:0UT  &H3DA 
,10  ELSE  OUT  ;<<H3D8,  10 
1190  LOCATE  1,11:PRINT"D  EVASTATD 

R" 
1200  RETURN 
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2000  SCREEN  0,1: WIDTH  40: COLOR  ,7,7:CLS: 

COLOR  4: LOCATE  1 , 15, O- PRINT"DEVASTATOR" : 

COLOR  0 

2010  PRINT: PRINT"The  Devastator,  an  aiie 

n  ship  D-f 

2020  PRINT" incredible  power,  is  now  appr 

oachi  ng 

2030  PRINT"the  Earth.   Its  mission  is  to 

utterly 
2040  PRINT"destroy  the  planet,  and  absor 
b  the 

2050  PRINT"enerQy  released  by  the  e>;plos 
i  on 

2060  PRINT"Earth' s  primitive  technology 

can 

2070  PRINT"assemble  only  one  spaceship  t 

hat 

2080  PRINT"can  hope  to  discourage  the  De 

vastator ■ 

2090  PRINT:PRINT"You,  as  the  pilot  o-f  th 

at  craft, 

2100  PRINT"are  truly  Earth's  last  hope." 

: PRINT 

2110  PRIMT"The  Devastator  sends  out  smal 

1  ships 

2120  PRINT"tD  plant  the  charges  that  wi 1 

1  e-f-fect 

2130  PRINT"Earth ' s  demise.   They  will  at 

tempt  to 

2140  PRINT"evade  you,  but  cannot  shoot  b 

ack. 

2150  PRINT" You  have  only  a  -few  seconds  t 

D  shoot 

2160  PRINT"each  ship  be-fore  it  plants  a 

charge. 

2170  PRINT"Once  ten  charges  have  been  pi 

anted , 

2180  COLOR  l:PRINT"it's  too  late." 

2190  LOCATE  25,1:C0L0R  31 ; PRINT"Hq1 d  sti 

ck  to  lower  right, press  button."; 

2200  A=RND 

2205  IF  STICK(0)>CX!  THEN  CX!=STICK(0) 

2207  IF  STICK(1)>CY!  THEN  CY!=BTICK(1> 

2208  IF  STRIG(1)=0  THEN  2200 
2210  RETURN 

3000  DEF  SEG=0:IF  (PEEK  (?<H410)  AND  S<H30) 

<>S<H30  THEN  DEF  SEG:  RETURN 

3010  SCREEN  0: PRINT"ColQr  Adaptor  Requir 

ed.  " 

3020  END 

4000  ON  ERROR  GOTO  404O 

4010  PLAY  "Pi6" 

4020  GOTO  4060 

4030  SCREEN  0: COLOR  31,0,0 

4040  PRINT  "Advanced  BASIC  CBASICA)  Requ 

i red.": COLOR  7: RESUME  4050 

4050  ON  ERROR  GOTO  0:END 

4060  ON  ERROR  SOTO  O: RETURN 

Program  7:  64  Devastator— basic  PorHon 

by  Gregg  Peele,  Assistant  Programming  Supervisor 

Refer  to  the  "Automatic  Pfoofreader"  article  before  typing  this 
program  in. 

50  POKE56,49jCLR  i rem  179 

60  PRINT"  {CLRH  12  DOWN)  SELECT 

tRVS}l{OFPl  OR  {RVS}2{0FF}  PLAYER  GAME 
"  J  rem  84 

70  GETA$!lFA$<"l''ORA$>"2''THEN70   jrera  219 

80  POKE328,ASC(A$)-49;POKE829,2   t rem  246 


Notes  For  The 
64  Version 


The  64  version  of  "Devastator"  uses  ma- 
chine language,  coupled  with  sprite  and 
character  graphics,  to  produce  a  realistic  bat- 
tle scenario.  You  must  defend  the  earth 
against  all  invaders.  To  insure  the  earth's 
safety,  you  must  strike  your  opponent's  ship 
at  least  once  every  ten  seconds.  Failing  this 
challenge  will  place  the  earth  in  imminent 
danger. 

Several  options  for  game  play  are  avail- 
able. Initially,  you  may  select  either  a  one- 
or  a  two-player  game.  The  one-player  game 
pits  you  against  a  computer-controlled  ship. 
This  ship  evades  your  attack  with  random 
movements.  Choosing  the  two-player  op- 
tion pits  you  against  an  opponent  who  is 
actively  avoiding  your  attack. 

Player  one  (in  either  the  one-  or  two- 
player  game)  must  use  a  joystick  in  port  2  to 
move  a  crosshair  around  the  screen.  (In  the 
two-player  game,  player  two  controls  the 
alien  ship  with  a  joystick  in  port  1.)  When 
the  crosshair  comes  in  contact  with  the  alien 
ship,  you  must  fire  to  achieve  a  successful 
strike  against  the  opposing  ship.  Ten  points 
are  awarded  for  each  successful  strike.  A 
score  of  1000  will  save  the  earth. 

The  game  has  three  levels  of  difficulty. 
You  can  change  levels  at  any  time  by  press- 
ing the  top  three  function  keys.  The  fl  key 
gives  the  lowest  level,  f3  the  second  highest, 
and  i5  the  most  difficult  level.  The 
SHIFT/LOCK  key  can  be  used  to  increase  or 
decrease  the  size  of  your  crosshair,  which 
also  affects  the  difficulty  of  the  game. 

To  use  Devastator  for  the  64,  you  must 
first  enter  Program  8  using  MLX,  The  start- 
ing address  for  this  program  is  49152  and 
the  ending  address  is  50891.  After  saving 
this  program,  type  in  Program  7  and  save  it. 
To  run  Devastator,  first  load  the  program 
that  you  created  with  MLX  like  this: 
LOAD  "program  name",B,l 
for  disk,  or 
LOAD  "program  name",lA 

for  tape.  Then  type  NEW  (hit  RETURN)  and 
load  and  run  Program  7. 
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100  POKE53281,0tPOKE52992,0iPOKE646,l»POK 

E53275,8  t rem  40 

120  SI=  54272 jPOR  T=  SI  TO  SI+24sPOKET, 0 : 

NEXT  srem  32 

125  POKESI+24 , 15 : POKESI+5 , 17 : POKESI+6 , 245 

:POKESI,100!POKESI+1,100  :reni  140 
150  PRINT" {CLR}" J  FOR  T=  1030TO1444STEP  41 

jPOKET, 223  8P0KET+54272,1 :NEXT:rem  195 
200  FOR  T=  1057TO  1484STEP  39 : POKET, 233 ; P 

OKET+54272,l!NEXT  srem  54 

250  FOR  T=  1991TO  1624STEP-39 s POKET, 105 tP 

OKET+1, 233tPOKET+54272,l  » rem  205 
300  POKET+54272+l,liNEXT  : rem  119 

350  FOR  T=  2016TO1624STEP-41S POKET, 95sPOK 

ET-l,223:POKET+54272,l  srem  149 
400  POKET+54272-l,l!NEXT  :rem  122 
450  FOR  T=  1480  TO  1480+120STEP40 :POKET, 1 

60iPOKET+54272,l:POKET+7,160  : rem  87 
500  POKET+54279,l:NEXT  : rem  36 

550  J=1023:Z=J!A=l;TR=40sGOSUB  600:J=1064 

lZ=J!A=-l!TR=40!GOSUB  600:GOTO800 

srem  85 
600  J=J+A:IF  J>2024  THEN  RETURN  srem  251 
650  IF  PEEK(J)<>32THENZ=Z+TR!J=ZiGOTO600 

srem  222 
700  POKEJ, 160: POKE J+54272,1  srem  18 
750  GOTO600  srem  107 

800  CL=12!FORT=1640TO  2023 :M=PEEKCT) !IFM< 

>32ANDM<>233ANDM<>223THEN1050:rem  137 

850  IF  M=32THENPOKET,247  : rem  150 

900  IPT>1754  THEN  CL=15  i rem  236 

950  IFT  >1868  THEN  CL=1  srem  194 

1000  POKET+54272,CL  srem  46 

1050  NEXT  srem  5 

1150  FOR  T=  1600TO2023:IF  PEEK(T)=32  THEN 

POKET+54272, 12  srem  21 

1200  NEXT  srem  2 

1210  SYS49152 SPRINT" {HOME} {10  RIGHT}SC0RE 

"  srem  132 

1250  SYS49200  5SyS49424sIP  PEEK{52992 )=255 

THEN  1283  srem  38 

1260  IF  PEEK(52992)=1THEN1275      srem  69 

1270  GOTO  1250  srem  203 

1275  SYS50871  srem  211 

1280  PRINT" {HOME} {13  RIGHT) {2  D0WN1{WHT}Y 

OU  SAVED  THE {DOWN] {9  LEFT ] EARTH ": GOT 

01287  srem  239 

1283  POKE  54276, 129s FOR  T=  200  TO  202sPOK 
E2043,TsPOKE54273,RND(0)*60+40 

srem  24 

1284  F0RG=1T0  254s POKE54273, RND{0) *60+40s 
NEXT:NEXTsPOKE53248+21,0     srem  18 

1285  POKE54276, 128s FOR  T=  lTO1500sNEXT 

:rem  147 

1286  PRINT" {HOME) {13  RIGHT) {2  D0WN){WHT)T 
HE  EARTH  HAS {©OWN} {14  LEFT} BEEN  DEST 
ROYED .  "  s  rem  40 

1287  PRINT" {13  RIGHT } {WHT } HIT  RETURN  TO 
{down} {13  LEFT}PLAY  AGAIN  OR" 

srem  202 

1288  PRINT" {15  RIGHT} { WHT) PRESS  'Q' 
{DOWN) {10  LEFT) TO  QUIT . " sPOKE198, 0 

; rem  54 

1289  GET  A$5lF  A$<>CHR$ ( 13 ) AND  A$<>"Q"AND 

A$<>CHR?Cl4I)THENl289        srem  91 

1290  IF  A$<>CHR$tl3)ANDA$<>CHR$(141)  THEN 
PRI NT " {CLR) ":POKE53 248+2 1,0  SEND 

srem  135 

1291  FOR  T=  1024  TO  1400  s  IF  PEEK(T)<160  T 
HEN  POKET, 32  trem  29 


1292  NEXT:SYS49152:POKE52992,0sGOTO  1210 

srem  82 


Program  8: 

64  Devastator— Machine  Language  Portion 

by  Gregg  Peele,  Assistant  Programming  Supervisor 

49152  :  169, 000, 133, 160, 133, 16 1,244 
49158  s 133, 162, 141,216, 207, 141, 238 
49164  :217, 207, 032, 149, 197, 032, 078 
49170  :076, 193,032,051,194,169,221 
49176  5  012, 141, 21 5, 207, 169, 01 7, 017 
49182  : 141 , 253 , 207 ,169,009, 141 , 182 
49188  : 252, 207, 169, 030, 141, 251, 062 
49194  5  207,169,022,141,250,207,014 
49200  5  169,000,141,2  54,207,03  2,083 
49206  :  181, 192, 206, 253, 207, 173, 242 
49212  : 2 53, 207, 240, 008, 169, 001, 170 
49218  :141, 254, 207,076,077, 192, 245 
49224  :  169, 016, 141, 253, 207, 032, 122 
49230  8  181,192,169,000,141,254,247 
49236  : 207, 032, 187, 192, 206, 252, 136 
49242  s207, 173,252,207,240,008,153 
49248  : 169,  001, 141, 254, 207, 076, 176 
49254  5  109,192,169,016,141,252,213 
49  260  : 207, 032, 187, 19 2, 169, 000, 12 7 
49266  :  141 ,  2  54,  207 ,  032  ,  193  ,  192  ,  109 
4927  2  : 238, 251, 207, 173, 25 1,207, 167 
49278  :201,039,176,008,169,001,20a 
49284  5  141,254,207,076,143,192,121 
49290  5  169,023,141,251,207,032,193 
49296  :  193, 192, 169, 000, 141, 254, 069 
49302  s 207, 032, 199,192,238,250,244 
49  308  5  207,173,250,207,201,039,209 
49314  5 176 , 008 , 169 , 001 , 141 , 254, 143 
49320  : 207, 075, 17 7, 192, 169, 023, 244 
49326  5  141,250,207,032,199,192,171 
49332  5096,172,253,207,076,202,162 
49338  5  192,172,252,207,076,202,007 
49344  :  19 2, 172, 251, 207, 076, 202, 012 
49350  5  192,172,250,207,169,000,164 
49356  5  133,251,169,004,133,252,122 
49362  5 173 , 254, 207 , 240 , 013, 177 , 250 
49368  5251,201,160,208,020,169,201 
49374  5  221,145,251,076,241,192,068 
49380  5  177,251,201,221,208,007,013 
49386  5  169,160,145,251,076,241,252 
49392  5  192,024,165,251,105,040,249 
49398  s 133, 251, 165, 252, 105, 000, 128 
49404  : 133, 252, 056, 165, 251, 233, 062 
49410  5  000,141,255,207,165,252,2  54 
49416  5  2  33,008,013,25  5,207,144,100 
49422  5  195,096,169,000,133,253,092 
49428  5  169,006,133,2  54,160,000,230 
49434  :177,253,201,247,240,018,13a 
49440  :201 , 192 , 240 ,007,201, 239 , 088 
49446  s 240, 017, 076, 061, 193, 169, 026 
49452  5  239,145,253,076,061,193,243 
49458  : 169, 192 ,145,253, 076 , 061 , 178 
49464  5  193,169,247,145,253,200,239 
49470  5  208,218,230,254,165,254,111 
49476  5  201 , 008 , 208 , 208 ,032,183, 140 
49482  5 198, 096 , 160 , 000, 185 , 115, 060 
49488  5 193 , 153 , 064 , 003 , 200, 192 ,117 
49494  5  192,208,245,169,014,141,031 
49500  5  248,007,169,010,141,028,183 
49506  5  208, 169, 003 , 141 , 037 , 208 , 096 
49512  5  169,009,141,040,208,169,072 
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49518  :013, 141, 038, 208,096,000,094 
49524  : 000, 000, 000,000,000,000,116 
49530  :000, 000, 000, 000, 000, 000, 122 
49536  5  000,000,000, 000, 000, 000, 128 
49542  : 000, 000, 000, 000, 000, 000, 134 
49548  ;000, 000, 000,020, 000, 000, 160 
49554  : 085 , 000, 001 , 085 , 064 , 005 , 130 
49560  : 125, 080, 03 1,2 55, 244, 117,236 
49566  :085, 093, 118, 150, 157,006, 25  5 
49572  : 150, 144,001,085,064,000,096 
49578  :000, 000, 000, 000, 000, 000, 170 
49584  : 000 , 000 , 000 , 000 , 000 , 000 , 176 
49590  :000, 000, 000, 000, 000, 000, 182 
49596  1000,000,000, 000, 000, 000, 188 
49602  :000,024,000,000, 024,000, 242 
49608  ! 000 , 024 , 000 , 000 , 024 , 000 , 248 
49614  :003, 255, 192,003, 2  55, 192,082 
49620  : 000, 024, 000, 000, 024, 000, 004 
49626  1000,024,000,000,024,000,010 
49632  : 000, 000 ,000 , 000 , 000 , 000, 2  24 
496  38  1000,000,000,000,000,000, 2  30 
49644  1000,000,000,000,000,000,2  36 
49650  :2 55, 2 55, 255, 255, 255, 255, 236 
49656  : 25 5, 19 2, 000, 003, 192, 000, 12 2 
49662  : 003, 192, 000, 003, 192, 000, 132 
49668  :003, 19  2,000,003,192,000,138 
496  74  :003, 192,000,003,192,000,144 
49680  : 003, 192, 000, 003, 192, 000, 150 
49686  1003,192,000,003, 192,000,156 
4969  2  : 003, 192, 000, 003, 192, 000, 162 
49698  :003, 192,000,003, 192,000,168 
49704  : 003, 19 2, 000, 003, 255, 2 55, 236 
49710  : 255, 255, 255, 255, 255, 169, 210 
49716  :173,  141,000, 208, 141,001,204 
49722  :208,  141,002, 208, 141,003, 249 
49  728  : 208, 141,  224,  207, 141,  226, 187 
49734  : 207, 169, 003, 141, 240, 207, 01 3 
49740  : 169, 000 , 141 , 016, 208 , 141 , 239 
49746  :225, 207,141, 227, 207, 169, 234 
49752  :  013, 141, 249, 007, 169, 010, 165 
49758  : 141, 2  39, 207, 120, 169, 110,056 
49  764  :  141, 020, 003, 169,194,141,000 
49770  : 021, 003, 088, 096, 162,000,220 
49776  :032, 126, 194, 162, 001, 032, 147 
49782  : 126, 194, 032, 2 29, 196, 076, 203 
49788  1049,234,169,015,141,021,241 
49794  1208,169,014,141,248,007,149 
49800  :  169, 007, 141, 039, 208, 169, 101 
49806  : 010, 141, 040, 208, 169, 015, 2 13 
49812  : 141,  2 50, 007, 173, 001, 208, 160 
49818  : 141, 005, 208, 173,000,208,121 
49824  : 141 ,  004 , 208 , 173 , 016 , 208 , 142 
49830  : 041, 001, 240, 011, 169, 004, 120 
49836  :013, 016, 208, 141,016,208,006 
49842  :076, 189,194,169,251,045,078 
49848  :  016, 208, 141, 016, 208, 173, 178 
49854  : 060, 003, 208, 05 5, 2 24, 001, 229 
49860  :  208, 05 1,206, 248, 207, 173, 009 
49866  :  248, 207, 208, 024, 169, 2 55, 033 
49872  : 141, 015, 212, 169, 128, 141, 246 
49878  : 018, 2 12, 173, 027, 212, 041, 129 
49884  :007, 141, 246, 207, 173, 215, 185 
49890  : 207, 141, 248, 207, 173, 246, 168 
49896  :  207, 168, 185, 240, 194, 076, 022 
49902  : 2 52, 194, 014, 013, 011, 010, 220 
49908  :  009, 007, 006, 005, 015, 189, 21 9 
49914  : 000, 2 20, 041, 015, 157, 2 28, 143 
49920  : 207, 056, 169, 01 5, 253, 228, 160 
49926  : 207, 157, 232, 207, 173, 141, 099 
49932  :002, 208, 014, 169, 005, 013, 167 
49938  : 029 , 208 , 141 , 029 , 208, 141 , 006 


49944  :023 , 208,076 , 051 , 195 , 201 , 010 
49950  :001, 208,018, 173,001,220, 139 
49956  :  041, 016, 240, 011, 169, 200, 201 
49962  1045,029,208,141,029,208,190 
49968  :  141, 023, 208, 165, 197,201,215 
49974  : 004, 208 , 008, 169 , 002 , 141 , 074 
49980  : 061, 003, 076, 086, 195, 201, 170 
49986  : 005 , 208 , 008 , 169 , 003 , 141 , 088 
49992  :  061, 003, 076, 086, 195, 201, 182 
49998  : 006, 208, 005, 169, 005, 141, 100 
50004  ; 061, 003, 189, 232, 207, 168,176 
50010  : 224, 001, 208, 002, 162,002,177 
50016  :  152, 010, 168, 185, 109, 195, 147 
50022  ;072, 185,108, 195,072,096,062 
50028  12  27,196,163,196,187,196,013 
50034  : 227, 196, 195, 196, 199, 196, 043 
50040  :206, 196,227,196,191, 196,052 
50046  :  220, 196, 213, 196, 169, 120, 216 
50052  ; 22 1,001, 208, 176, 010, 056, 036 
50058  : 189, 001, 208, 237, 061, 003, 069 
50064  :  157, 001, 208, 096, 169, 229, 236 
50070  ! 221,001, 208, 144,010,024, 246 
50076  ;  189, 001, 208, 109, 061, 003, 215 
50082  :157,001, 208,096,056, 189, 101 
50088  ;  2 24, 207, 233, 045, 157, 228, 238 
50094  :207, 189, 225, 207, 233,001, 212 
50100  : 029, 228, 207, 144, 01 3, 169, 202 
50106  : 045, 157, 224, 207, 169, 001, 221 
50112  :  157, 225, 207, 076, 216, 195, 244 
50118  : 024, 189, 224, 207, 109, 061, 244 
50124  : 003, 15 7, 224, 207, 189, 225, 185 
50130  : 207, 105, 000, 157, 2 25, 207, 087 
50136  :  056, 189, 224, 207, 23 3, 000, 101 
50142  : 157, 228, 207, 189, 2 25, 207, 155 
50148  : 233, 001, 029, 228, 207, 144, 046 
50154  :019,224,002,240,034,173,158 
50160  : 016, 208, 009, 001, 141, 016, 119 
50166  :208, 189,224,207, 157,000,207 
50172  1208,096,224,002,240,030,028 
50178  : 173,016,208,041, 254,141,067 
50184  :016,20a, 189, 224, 207, 15 7, 241 
50190  : 000, 208, 096, 173, 016, 208, 203 
50196  1009,002,141, 016, 208, 189, 073 
50202  :2  24, 207,157,000, 208,096,150 
50208  :  173, 016, 208, 041, 253, 141, 096 
50214  :016,20a, 189,224, 207,157,015 
50220  ; 000, 208, 096, 056, 189, 224, 049 
50226  : 207, 23 3, 045, 157, 2 28, 207, 103 
502  32  : 189, 225, 207, 233, 000, 029, 171 
50238  : 2 28, 207, 176, 013, 169, 044, 131 
50244  : 157, 224, 207, 169, 000, 157, 214 
50250  :225, 207, 076,097, 196,056, 163 
50256  :  189, 224, 207,237,061,003,233 
50262  s 157, 224, 207, 189, 2  25, 207, 015 
50268  : 233, 000, 157, 225, 207, 056, 202 
50274  : 189, 224, 207, 233, 000, 157, 084 
50280  :  228, 207, 189, 225, 207, 233, 113 
50286  : 001 , 029 , 228, 207 , 144, 019 , 226 

50292  :224, 002, 240, 034, 173, 016, 037 

50293  : 208, 009, 001 , 141 , 016, 208, 193 
50304  :  189, 224, 207, 15 7, 000, 208, 089 
50310  : 096, 224, 002, 240, 030, 173, 131 
50316  J 016, 208, 041, 254, 141, 016, 048 
50322  : 208, 189, 224, 207, 157, 000, 107 
50328  : 208, 096, 173, 016, 208, 009, 094 
50334  : 002, 141, 016, 208, 189, 224, 170 
50340  : 207, 157, 000, 208, 096, 173, 23 7 
50346  : 016, 208, 041, 253, 141, 016, 077 
50352  :208, 189, 224, 207, 157,000, 137 
50358  ; 208 , 096 , 032 , 130, 195 , 096 , 171 
50364  : 032, 148, 195, 096, 032, 166, 089 
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50370  ! 195, 096, 032, 047, 196,096, 088 
50376  :032, 130, 195, 032, 047, 196, 064 
50382  : 096, 032, 148, 195, 032, 047, 244 
50388  :  196, 096, 032, 148, 195, 032, 143 
50394  : 166 , 195 , 096 , 032 , 130,195 , 008 
50400  : 032, 166, 195, 096, 096, 173, 214 
50406  : 030, 208, 141, 242, 207, 206, 240 
50412  :  240, 207 ,024 , 173 , 240 . 207 , 047 
50418  :105,030, 141,001, 212, 173, 136 
50424  :  240, 207, 240, 003, 076, 078, 068 
50430  : 197, 169, 000, 141, 033, 208, 2  34 
50436  :  141 , 032 , 208 , 169 , 003 , 141 , 186 
50442  : 240, 207 , 173 , 000, 220 , 041 ,123 
50448  :016 , 240, 013 , 169 , 013 , 141 , 096 
50454  :249,007, 169,001, 141, 244,065 
50460  :  207, 076, 078, 197, 173, 244, 235 
50466  : 207 , 240 , 041 , 169 , 008 , 141 , 072 
50472  :004, 212, 169, 03 3, 141, 004, 091 
50478  :  212, 169, 032, 141,004,212,048 
50484  :  169 , 000 , 141 , 244, 207,173,218 
50490  ; 242, 207, 041, 001, 240, 014, 035 
50496  :  206, 239, 207, 169, 002, 141, 004 
50502  :  033, 208, 141, 032, 208, 032, 212 
50508  :  091, 19 7, 169, 002, 197, 161, 125 
50514  ; 208, 006, 169, 088, 197, 162, 144 
50520  : 240 , 041 , 096 , 169 , 202 , 141 , 209 
50526  ! 249, 007, 169, 020, 141, 240, 152 
50532  ;  207, 032, 157, 198, 173, 239, 082 
50538  : 207, 240, 001, 096, 169, 010, 061 
50544  : 141, 239, 207, 206, 215, 207, 047 
50550  : 173, 215, 207, 201, 003, 144, 037 
50556  :001, 096, 169, 001, 076, 133,  088 
50562  : 197, 169, 255, 141, 000, 207, 075 
50568  :  120, 169, 049, 141, 020, 003, 126 
50574  :  169, 234,141,021,003,088,030 


STOP  PLAYING  GAIVI 


■  Calculate  oUds  on  HORSE  RACES  with  ANY  COMPUTER 
using  BASIC. 

■  SCIENTIFICALLY  DERIVED  SYSTEM,  really  works  TV 
Slation  WLKY  dI  Louisville,  Kentuctty  used  Itiis  sysiem 
to  piedicl  the  Mi  ol  IHe  1980  Kentucky  Derby  See 
Populat  Computing  (February.  1984)  lor  a  review  ol  this 
program  This  syslem  was  wrillen  and  user)  tiy 
computer  experts  and  is  now  Peing  made  available  to  home  corapuler  owners.  This  method 
IS  based  on  storing  data  (lorri  a  large  number  ol  races  on  a  high  speed,  large  scale  computer 
23  laclors  taken  Irom  Ihe  Daily  Racing  Form"  were  then  analyzed  by  Ihe  computer  lo 
see  how  they  inlluenced  race  results  From  these  23  fads,  ten  were  found  lo  be  ihe  most 
vital  in  determinmg  winners'NUMERICAL  PROBABILITIES  of  each  ol  these  10  factors  were 
then  computed  and  Ihis  forms  the  basis  ol  this  REVOLUTIONARY  NEW  PROGRAM 

■  SIMPLE  TO  USE,  Obtain  "Daily  Racing  Form"  the  day  belore  the  races  anP  answer  the 
10  questions  about  each  horse  Run  the  program  and  your  computer  will  print  out  the 
odds  (or  all  horses  in  each  race  COMPUTER  POWER  gives  you  the  advantage! 

■  YOU  GET: 

1|  Program  on  cassette  or  disk. 

2(  Listing  ol  BASIC  programs  for  use  wiin  any  computer. 

3)  tnstrudions  on  Imv  to  gel  the  needed  Oala  from  the  "Baity  Racing  Form  " 

4)  Tips  on  using  the  odrls  gereiated  by  the  program 
&)  Sample  torm  lo  simplify  entering  data  Iw  each  race 

MA/L  COUPON  Ofl  CALL  TODAY 

3G  COMPANY,  INC.  DEPT.  CO  (503)  357-5607 

RT.  3,  BOX  28A,  GASTON,  OR  97119 

Yes,  I  want  to  use  my  computer  for  FUN  and  PROFIT.  Please  send  me  'Play  the 
Horses"  lor  S29.35.  Circle  the  cassette  you  need     pet/cbm.    vie  20  Cmor  Compuiei. 

TRS-80.  Sinclair  Iimei  10M.  Atari  Commodore  ii  (disk  or  cassetltL 

Apple  «[)i5k  or  casseltel  ^^  ^^F 

Enclosed  is;  D  check  or  tnotiey  order  D  MasterCard  D  Visa         '*•' 


Card  Mo. 


Ejip  date 


NAI^E 


ADORESS . 
CITY 


_ZIP. 


START  USING  YOUR  COMPUTER  FOR 

FUN  and  PROFIT! 


50580  ; 096, 160, 000, 185,221,197,239 
50586  :153,000,050, 200,192,193, 174 
5059  2  :  208, 245, 169, 008, 01 3, 02 1,056 
50598  :208,141,021,20a, 169,160,049 
50604  : 141 , 006 , 208 , 169 , 060 , 141,129 
50610  : 007, 208, 169, 008, 013, 029, 100 
50616  : 208, 141, 029, 208, 013, 023, 038 
50622  : 208, 141, 023, 208, 013, 0  28, 043 
50628  :  208, 141, 028, 208, 169, 014, 196 
50634  : 141, 037, 208, 169, 005, 141, 135 
50640  : 038, 208, 169, 003, 141, 042, 041 
50646  :  208, 169, 200, 141, 251, 007, 165 
50652  :096,000,000,000,002,169,231 
50658  :000,002, 254,064,011, 2  55, 044 
50664  !  144, 043, 255, 208, 042, 25  5,155 
50670  ! 164, 170, 254, 169, 170, 190, 075 
50676  :  169, 170, 186, 169, 186, 186, 030 
50682  :  169, 170, 254, 169, 170, 254, 155 
50688  :  173, 043, 255, 180, 042, 2 5 5, 180 
50694  :  180, 042, 254, 180, 010, 254, 158 
50700  : 144, 002, 185, 064, 000, 169, 064 
50706  : 000 , 000 , 000 , 000 , 000  -  000 i  018 
50712  :  000 , 000 , 000 , 000 , 000 , 000 , 024 
50718  : 000, 000, 000, 136, 000, 000, 166 
50724  :  254, 000, 01 1,207, 128, 01 1,135 
50730  :  255, 192, 002, 207, 036, 034, 000 
50736  :  254, 040, 040, 188, 169, 042, 013 
50742  :050, 169, 128, 000, 000, 170, 059 
50748  :014, 169, 034, 062, 044, 008, 135 
50754  :  252, 132, 040, 207, 048, 002, 235 
50760  ; 254, 128, 002, 206, 000, 002, 152 
50766  : 185 , 000 , 000 , 000 , 000 , 000 , 007 
50772  : 000 , 000 , 000 , 000 , 000 , 000 , 084 
50778  : 000 , 000 , 000 , 000 , 000 , 000 , 090 
50784  ;000 , 136 , 000 , 000 , 012 , 000 , 244 
50790  : 008, 000, 128, 011, 000, 192, 185 
50796  :  000, 003, 004, 034, 050, 000, 199 
50802  :  000, 188,160,032,002,008,248 
50808  t000 , 000 , 000 , 128 , 000 , 1 36 , 128 
50814  : 034, 062, 044, 008, 000, 132, 150 
50820  1000,192, 048, 000, 192, 128, 180 
50826  :002 , 000, 000, 000, 184, 000, 068 
50832  :000 , 000 , 000 , 000 , 000 , 000 , 144 
50838  : 000 , 000 , 000 , 000 , 000 , 000 . 150 
50844  : 000, 169, 000, 133, 160, 13 3,  239 
50850  : 161, 133, 162, 024, 169, 010, 053 
50856  :109, 216, 207, 141, 216, 207, 240 
50862  : 173 , 2 17 , 207 , 105 , 000 , 141 , 249 
50868  :217 , 207 , 096 , 160 , 024 , 162 , 022 
50874  :000,024,032,240,255,173,142 
50880  :217, 207, 174, 216, 207, 032, 221 
50886  : 205, 189,096,013,013,013,215 


\erbatim 

flexible  disks 

Call  Free  (800)  235-4137  for 

prices  and  information.  Dealer 

inquiries  invited.  C.O.D,  and 

charge  cards  accepted. 

PACIFIC 
EXCHANGES 

100  Foothill  Blvd. 
San  Luis  Obispo.  CA 
')3401    In  Cat  call 
(800)  592-5935  or 
(805)  543-1037 


JACKPOT 


Rick  Rothstein 

Now  you  can  experience  the  thrill  of  slot  machines 
without  the  danger  of  losing  your  money.  These  pro- 
grams will  show  you  how  the  bandits  work  and  also 
how  difficult  it  really  is  to  hit  a  jackpot!  Versions 
for  T1-99/4A  with  Extended  BASIC,  Commodore  64, 
VIC-20,  Atari,  and  IBM  PC/PCjr  (Color/Graphics 
Monitor  Adapter  required  on  PC). 


Have  you  ever  been  to  a  casino  in  Las  Vegas  or 
Atlantic  City?  If  so,  your  first  visit  probably  left 
you  dumbstruck  over  the  sheer  number  of  slot 
machines  waiting  to  take  your  money.  These 
nefarious  one-arm  bandits  dazzle  you  with  bright 
lights  and  promises  of  instant  wealth. 

A  recent  trip  to  Atlantic  City — and  an  un- 
profitable encounter  with  some  of  these  ma- 
chines— prompted  me  to  write  "Jackpot."  The 
program  features  three  very  different  playing 
levels.  Level  one  offers  true  casino  odds;  level 
two  offers  very  generous  odds  which  gives  the 
player  roughly  the  same  odds  that  a  casino  nor- 
mally enjoys;  and  level  three  will,  in  the  long 
run,  make  you  the  owner  of  the  casino. 

Frustrating  Experiences 

After  you  experience  the  frustrations  of  playing 
against  the  legitimate  odds  of  level  one,  level 
two  should  give  you  a  small  measure  of  satisfac- 


tion if  you  play  it  long  enough.  Level  three  was 
included  for  you  to  play  after  you  discover  that 
level  two,  although  tilted  in  your  favor,  is  not 
overly  generous. 

Colorful  graphics  are  used  to  display  a 
payout  chart,  your  current  monetary  status,  and 
three  large  windows  through  which  cherries, 
limes,  plums,  bells,  bars,  or  lucky  sevens  will 
show.  The  shape  displayed  in  each  window  is 
picked  at  random  from  20-position  wheels 
containing  the  above  six  shapes  scattered  ran- 
domly around  them.  The  number  of  times  each 
shape  appears  on  each  wheel  was  selected  to 
produce  the  desired  odds  for  each  level  of  play. 

Payout? 

Before  play  begins  in  the  TI  version,  the  number 
1  is  displayed  in  each  window,  and  the  prompt 
ENTER  LEVEL  appears  under  the  payout  chart. 
If  you  press  the  space  bar,  the  displayed  level 
number  will  change.  Press  ENTER  to  begin  the 
game  at  the  displayed  level.  The  payout  chart 
continually  prompts  you  to  press  the  letter  P  to 
play  and  S  to  stop  (the  game).  In  addition,  press- 
ing AID  (FCTN-7)  will  allow  you  to  enter  a  new 
level  of  piay,  and  pressing  REDO  (FCTN-8)  will 
reset  your  money  status  to  even  while  retaining 
the  same  level  of  play. 

This  program  is  written  in  Extended  BASIC, 
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A  winning  combination  on  tiw  Tl  version  of  "Jackpot." 

and  because  it  uses  both  upper-  and  lowercase 
letters,  it  can  only  be  typed  into  a  99/4A  con- 
sole. However,  once  the  program  is  recorded  on 
tape  or  disk  it  will  load  and  run  properly  on  the 
older  99/4  console. 

In  order  to  facilitate  use  of  the  automatic 
NUMBERing  command  built  into  the  99/4A,  the 
line  numbers  for  the  program  logic  begin  at  line 
100  and  increase  in  increments  of  ten.  (Except  for 
the  introductory  REMarks,  all  other  REMark 
statements  have  line  numbers  ending  in  five  and 
may  be  omitted.) 

A  Character  Of  Its  Own 

One  of  the  strongest  features  of  the  99/4A  is  its 
ability  to  display  high-resolution  graphics  and  up 
to  16  colors  simultaneously.  This  program  makes 
excellent  use  of  these  features  by  using  seven  dif- 
ferent colors  and  redefining  all  112  Extended 
BASIC  characters  which  make  up  the  highly  de- 
tailed displays. 

Although  the  program  logic  and  mathemat- 
ical theory  of  slot  machines  will  not  be  ex- 
plained, here  are  some  of  the  programming 
techniques  used  in  the  TI  version: 

Line  120  sets  the  foreground  and  back- 
ground colors  of  character  set  0,  which  contains 
the  cursor  symbol  and  the  edge  character,  to  the 
same  color  and  then  fills  the  screen  with  the 
cursor  symbol.  Although  the  characters  in  this  set 
cannot  be  redefined,  turning  the  foreground  and 
background  to  the  same  color  has  the  same  effect 
as  redefining  them  to  solid  blocks  of  color.  Filling 
the  screen  with  one  of  these  characters  produces 
a  solid  background  color  which  is  independent  of 
any  other  character — something  the  blank  char- 
acter cannot  do. 

After  all  of  the  characters  have  been  re- 
defined, they  are  combined  into  strings  and 
placed  on  the  screen  with  the  DISPLAY  AT  com- 
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mand  of  Extended  BASIC.  This  is  a  much  faster 
way  to  place  graphics  on  the  screen  than  using 
the  CALL  HCHAR  or  CALL  VCHAR 
subprograms. 

The  first  statement  in  line  170  uses  a  ran- 
dom number,  from  the  sequence  that  RAN- 
DOMIZE generates,  for  each  loop  in  which  either 
no  key  or  an  unrecognized  key  is  pressed.  This 
technique  insures  that  the  sequence  of  plays  will 
not  be  repeated,  since  the  time  period  between 
recognized  keypresses  will  vary  from  play  to 
play  and  from  person  to  person. 

Sluggish  Sprites 

Most  programmers  who  work  in  Extended  BASIC 
think  sprites  are  useful  only  when  they  move. 
Actually,  they  can  be  very  handy  if  placed  on  the 
screen  and  left  stationary.  In  this  program,  one 
sprite,  doubled  in  size  by  the  CALL  MAGNIFY 
(2)  subprogram,  is  placed  in  front  of  each  win- 
dow. They  serve  as  level-of-play  indicators  and 
are  left  transparent  during  game  play.  When 
needed,  a  simple  CALL  COLOR  makes  them  vis- 
ible. The  advantage  of  using  sprites  in  this 
particular  application  is  that  characters  (numbers 
in  this  case)  defined  in  an  area  measuring  two 
characters  by  two  characters  are  displayed  with 
no  additional  character  redefinitions.  (Remember, 
all  112  Extended  BASIC  characters  were  re- 
defined and  used  for  the  display  graphics.)  With- 
out sprites,  12  additional  character  redefinitions 
would  have  been  necessary  to  create  the  three 
large-sized  numbers  needed  for  the  level-of-play 
indicator. 

If  you  wish  to  save  the  time  and  effort  of 
typing  this  program  in,  I  will  be  glad  to  make  a 
copy  for  you  (TI  version  only).  Just  send  $3,  a 
blank  cassette  or  disk,  and  a  self-addressed, 
stamped  mailer  to: 

Rick  Rothstein 
P.O.  Box  4169 
Trenton,  N]  08610 


Program  1 :  TI-99/4A  Jackpot 


99  REM     EX 

100  CALL 

CALL 
AR  C  1  , 
CALL 
,4,2, 
7,16) 
CALL 
14,  16 
) 

RANDO 
0 

*  (6,  5 
DTD  3 
REM  « 
RANDO 
ATUS) 


1  10 


120 


130 


135 
140 


TENDED  BASIC  RE 
CLEAR  : :  CALL  S 
COLOR (0, 12, 12) 
1 , 30, 768) 
COLOR (1,5,16,2, 
16,5,2, 16,6,7, I 

COLOR  (9,  13,  16,  1 
12,5, 16, 13,13, 

MIZE  : :  LEVEL=4 
OPTION  BASE  1  : 
) , WHEEL* (  3,3) , 
10 

«  P,S  OR  AID  PR 
M=RND  : :  CALL  K 
IF  STATUS=0 


QUIRED 
CREEN  (  12)  :  : 
: :  CALL  HCH 

7, 16, 3,2, 16 
6,7,2, 16,8, 

0,14,16,11, 
16,14,13,16 

9  : :  TOTAL= 
:  DIM  SHAPE 
PICK  C3)  :  :   G 

ESSED  ** 

EY (0, KEY, ST 

THEN  140 


\ 


150  IF  KEY=83  OR  KEY=115  THEN  CALL 
CLEAR  ::  CALL  COLOR ( 1 , 1 , 1 ): :  EN 
D  ELSE  IF  KEY=  S0  OR  KEY=112  TH 
EN  TDTAL=T0TAL-1   ::   GOTO  200 
160  IF  KEY=6  THEN  TOTAL=0  : :   BQSUB 
B10  :;  GOTO  140  ELBE  IF  KEY<>1 
THEN  140 
170  GDSUB  770  ::  CALL  COLOR ( # 1 , 2 , #2 
,2, #3, 2)::  DISPLAY  AT(24,1)BEEP 
:RPT*<CHR*(30),B)&"ECTERwFEVEF" 
S<RPT*  <CHR*  (30)  ,  9) 
175  REM  *»  CHANGE  LEVEL  *« 
180  CALL  KEY (0, KEY, STATUS) : :   IF  STA 
TUS<1  THEN  1B0  ELSE  IF  KEY=13  T 
HEN  GOSUB  780  ::  GOTO  140  ELSE 
IF  KEY032  THEN  180 
170  LEVEL=LEVEL+l+3» (LEVEL>50) : :  DI 
SPLAY  AT  (  1 , 2)  SI ZE( 1 ) BEEP:  "K"  :: 
CALL  PATTERN (#1 , LEVEL, #2. LEVEL 
,#3, LEVEL)::   GOTO  180 
195  REM  **  PICK  3  SHAPES  ** 
200  CALL  SOUND (50, -2,0) : :  GOSUB  810 
::  GOSUB  770  ::  FDR  1=1  TO  3  : 
:  PICK ( I )=VAL (SEG* (WHEEL* (LEVEL 
-4  8,  I  )  ,  INT  (20«RND+n  ,  1  )  )  :  :  NEXT 
I 
205  REM  «*  DISPLAY  SHAPES  «« 
210  FOR  1=4  TO  20  STEP  8  ::  FOR  J=3 
TO  7  ::  DISPLAY  AT < J . I ) S I Z E ( 5 ) 
:  SHAPES  (PICK (  (1+4)  /8)  , J-2)  :  :  NE 
XT  J 

220  CALL  SDUND(50, -6, 0) : :  NEXT  I  :: 

CALL  SOUND ( 1 00. 44000, 30) 
225  REM  «*  CHECK  FDR  WIN  ** 


Here  comes  the  new  generation  of  SM's 


program  series  for  the  64. 


Here  comes  the  new  generation  of  SM's 


program  series  for  the  64. 


y^  TEXT 64 


The  professional  wordprocessor  with  more  than  80  functions 

liite  mulli-coior  selection,  up  to  120  columns/line  without 

addilionai  hardware,  find  &■  replace,  enhanced  blockhandling, 

direct-access  to  SM-ADREVA-files,  and  all 

the  other  usual  features, 

PLACE  YOUR  CHECK  OB  MONEY  ORDER  NOW! 


^r--'- .r'^'"  ..^' 
i4 


SM  SOFTWARE  INC.    252  Bethlehem  Pike    Colmar.  PA18S15 


^yiHiSM64 

This  index-sequential  file  manager  gives  you  a  new  dimension 

on  direct  access  files.  Up  to  40  keys,  various  length  for  each 

record  and  up  to  10  flies  can  be  handled  at  the 

same  time  by  this  soptilsticated  module.  How  could  your 

programs  survive  without  SM-ISM? 

PLACE  YOUR  CHECK  OR  MONEY  ORDER  NOW!  — 


SM  SOFTWARE  INC.   2S2  Bethlehem  Pike    Colmar,  PA  1891S 


230 

240 

25  0 
260 


265 
270 


280 


F  P 
HEN 
INS 
F  P 
IF 
)  =5 
6  A 
F  F 
(  1  ) 
F  P 
OTO 
290 
EM 
OR 
1  : 
,  10 


PICK (2) =1 
270  ELSE  C 


ICK(1)=1  THEN  IF 

C0INS=5  : :  GOTO 
=2  : :  GOTO  270 
I  C  K  (  1  )  <  :;  P  I  C  K  (  2  )  T  H  E  N  14  0  ELS 

(  (PICK  (2)  OPICK  (3)  OR  PICK( 
)AND  PICK(  3) <>5) OR (PICK (2) 
ND  PICK (3> =5) THEN  140 
ICK(1)<5  THEN  C0INS  =  2-t-4«PIC 
: :   GOTO  270 
ICK(i)=5  THEN  CDINS=100  :: 

280  ELSE  COINS=200  ::   GOTO 


I 

Ft 
L  = 

SC 


;9  0 


OR 
.  =  T0 

;0UN 

N 
OR 

SI 
ILL 
REN 
810 
300  FOR 
:  CA 
T  5 
:EM 
ALL 
030 
36. 
3FC 
FFF 


305 
310 


X' 
RE 

£.(■ 
ll 

F! 
FF 


**  UPDATE  MONEY  STATUS  ** 
1=1  TO  COINS  ::  TOTAL=TDTAL 
:   GOSUB  810  ::  CALL  SOUND (2 
00, 0,  3250,  0,  6750, 0)  :  :   NEXT 

GOTO  140 
1=5  TO  COINS  STEP  5  ::   TOTA 
TAL-t-5  ::   GOSUB  810  ::   CALL 
0(35,1000,  0,3250,0,6750,0) 
EXT  I   :;   GOTO  140 
1=40  TD  COINS  STEP  40  :  :   FO 
REN  =  700  TO  900  STEP  10  :  :  C 
SOUND (-99, SIREN, 0) : :  NEXT  S 
TOTAL=TOTAL+40  : :  GDSUB 


SIREN=900  TO  700  STEP  -20  : 
LL  SOUND ( -200, SIREN, 0) : :  NE 
IREN  ::  NEXT  I  ::   GOTO  140 
**  DEFINE  GRAPHICS  %% 

CHAR (33, " 181818181 818iaFF0 
7070F0F0F0FS0C0E0E0F0F0F0F" 
•■0F1F1F1F  1F1F3F3FF0F8F8F8FS 
FC00  00000  000030F1F3F7F7FFFF 
FFF"  ) 
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32151  CALL  CHAR(32,  "FFFFFFFFFFFFFFFF"  550  CALL  CH  AR  (  1  36  ,  "  iy00000F  FF  FFFFFFF 

,40.  "0000000000  1C3E7F00000000  78  0^100000  0E<;iF  8  F  EFF  0  10  30307  0  7  0F0F  1 

FCFEFE7FFFFFFFFFFFFF7FC0F0F8F8F  F80C0C0E0E0F  0F0F  8  ■'  ) 

CFCFCFC")  560  CALL  CHAR  (  1  40  ,  "  1  F3FFFFFFFFF  J:.F  1  F 

330  CALL  CHAR(44,  "030F1F1F3F3F3F3FF  F8FCFFFFFFFFFCF 8 1 F0F0F070703030 

pppjrFFFFFFFFEFE7F3F3F0F 03000 000  1FBF0F0E0E0C0C08  "  > 

FBFBF0E0B")  565  REM  **  CREATE  SHAPES  ** 

340  CALL  CHAR  (48,  "00384444444438000  570  SHAPE*  (  t  ,  1  )="  ww  "  ?'CHR«  (  1  28  )  S^CHR* 

0  1030  10101038000038440810207000  (129)?'"w"   ::   SH  APE*  (  1  ,  2  )  =  "  w  "  ?<CH 

003844  18044438")  R*  (  1  30  )  S<  "  w  "  &CHR*  (  1  3  1  )  S<  "  w  "  ;:   SH 

350  CALL  CHAR(52,  "00081828487C08000  APE  «  '.  1  ,  3  )  =  "  (  "  &CHR*  C  1  3  1  >  !.  "  w  " '-CHR 

07S407304443B00003B407844443800  i(132  )?'">" 

007C040B10202" )  580  SH APE* ( 1 , 4 > = " « +w , - "   ::  SHAPE*<1 

360  CALL  CHAR  (56,  "00384438444438000  ,5)="./wHI"  ::  SHAPE*  (  2  ,  1  )  =  "  w  "  ?< 

03844443C047S0000000000003F3F3F  CHRt(135)S<CHRt(136)«<CHR*ti37)!<" 

0000000000FCFCFC" )  w" 

370  CALL  CHAR  (60,  "3F3F3F0000000000F  591;!  SHAPE*  (  2  ,  2 )  =CHR*  (  i  38  )  S;  "  c  c  c  "  &CHR 

CFCFC0000000000003854 30 18543800  *<139)  ::   SHAPE*(2,3>=CHR*(140)!i 

FFFFFFFFFFFFFFFF")  "  c  c  c  "  S<CHR*  (  1  4  1  )  :  :   BH  APE*  (  2  ,  4  )  =C 

380  CALL  CHAR  (64,  "00381010  101038000  HR*  (  1  42  )  S<  "  cc  c  "  S<CHR*  (  1  43  ) 

03844447C444400003C223C22223C00  £,00  SHAPE*  (  2,  5  )  =  "  w  ^  abw  "  :  :   SHAPE*  (3 

00446454544C44" )  ,l)="whriw"   ::   SH APE* ( 3 , 2 ) = " j r r 

390  CALL  CHAR (68, "00784444444478000  rk"  ::  SHAPE* ( 3 , 3) = " 1 rr r m"  ;:  S 

07C407a40407C000040404040407C00  H APE*  ( 3 , 4 )  =  "  nr r r o "   ::   SHAPEt(3, 

003a44404C443a" )  5)="wprqw" 

400  CALL  CHAR (72, " 1F1F0F0300000000F  610  SHAPE* ( 4 , 1 ) = " ww ' ww "   ::   SHAPE*(4 

CF8F0C000000000 183C7E7E7E3C1800  ,2)="w""  #w"   ::   SHAPE* ( 4 , 3 ) = " w* 

FFFFFFFFFFFFFFFF")  V.vt"      ::   SHAPE*  (  4  ,  4  )  = "  &  =•  y,y"      :: 

410  CALL  CHAR  (76,  "00000707040000000  SHAPE*  (  4  ,  5  )  =  "  '  -C  3  SPACES>k" 

000FaF8183030600000000101010000  620  SH APE*  ( 5 ,  1 ) = " ww www "  ::   SHAPE*  (5 

60C0C080a08")  ,2)="?????"  ::  SHAPE* ( 5 , 3 ) =" ?BA 

420  CALL  CHAR (80, "00784444784040000  R?"  ::  SH APE* ( 5 , 4 )="????? "  :=  S 

044442810101000007844447848440  0  HAPE*(5,5)="wwwww" 

00384430084438")  630  SHAPE* ( 6 ,  1  ) = " w X Y 2 w "   ::  SHAPE*  (6 

430  CALL  CHAR (84, "007C1010101010000  ,2>="wwE\w"   ::   SHAPE* ( 6 , 3 ) = " ww 3 

0444444444438000044444  444281000  ww"   ::   SHAPE* ( 6 , 4 ) = " w  w^ww "   ::   S 

00444444545428")  HAPE*(6,5)="wm„ww" 

'"-'  PPPPPPPFrFF0000FFFFFFFFFFFFFEFC  ^35  REM  *«  DISPLAY  GRAPHICS  «t 

010103:.7070F?f'iF")  ^-^  I>^5PLAY  AT  (  1  ,  2  ,  S  I  Z  E  (  25  )  =  RPT*  C  "  K 

450  CALL  CHAR(92,"FCF8F0E0C0C0a0303  ",25)==  BD5UB  770  =;  DISPLAY  AT 

F3F3F3E7E7E7E7E7C"?<RPT*("FC",15  (  9  ,  2  )  S  I  Z  E  (  25  )  :  RPT*  (  "  K  "  ,  25  ) 

),96,"FF7F1F0700000000FFFFFFFFF  ^^0  DISPLAY  AT ( 1 1 , 2 ) S I ZE ( 25 ) = " www0C 

F000000FFFEFaE000000000FFFFFFFF  E wD0FF ARwPERwPF AQwww " 

|.|_l_j_l_j_|-p.,  J  660  DISPLAY  AT  (  1  2,  2  )  SI  2E  (25)  :  "w"S<CH 

460  CALL  CHAR (  100,  "0000030F1F1F3F7F  R*  (  1  33 ) &CHR* (  1 34 ) & " w wwwwwwwwws t 

0000C0F0F8FBFCFE7F3F1F1F0F03000  sLstwwwwww"  ::  DISPLAY  AT(13,2> 

j.jp^j_j,pgpgpgj^„j  SIZE(25):"wJJi«{,Jw{,Jw>w2wwuvuv 

470  CALL  CHAR ( 104, "00030F 1F3F7FFFFF  uvw>wl4w" 

00C0F0F8FCFEFFFF010101030307070  670  DISPLAY  AT  (  1  4  ,  2  )  S I  Z  E  (  25  )  :  "  w  "  ?.CH 

78080a0C0C0E0E0E")  R*  (  1  33  )  S<CHR*  (  1  3  4  )  &CHRt  (  1  33  )  &CHR 

480  CALL  CHAR  (  108,  ■■070F0F0F0F0F0F07  *  (  1  34  )  !<  "  wwwwww  wwz  t  z  C  :  ;  wwwwww  " 

E,;ip0F0F0F0F0F0E0070707030301010  ^80  DISPLAY  AT  (  1  5  ,  2  )  S  I  ZE  (  25  )  :  "  w  J  J  J  J 

1  E0E0E0C0C0B080B0B " )  w { ,  >  w>w5ww !  C ,  3  !  < ,  J  <  =w  > w 1 Ow "   :  ; 

490  CALL  CHAR (  1  12,  "FFFF7F3F1F0F0300  DISPLAY  AT  (  1 6 , 2 ) S I ZE  ( 25 )  ;  " wded e 

FFFFFEFCFSF0C000FFFFFFFFFFFFFFF  =  : wwwwwwz  <z  fz {wwwwww" 

F0e0001070F0F  IF  IF"  )  -^90  DISPLAY  AT  (  1  7  ,  2  )  S  I  ZE  (  25  )  :  "  wf  g-f  g 

500  CALL  CHAR  (  i  16,  "000080E0F0F0FSF8  < =w > 1 0ww !  { ,  >  1  C ,  J  I  x ,  > w >w 1 8w "   :: 

lFiF0F0F070 10000FSF8F0F0E080000  DISPLAY  AT  C 1 8 , 2 >  5  I Z E ( 25 )  :  "wdede 

0  0 "  \  dewwwMww:;:;:;wMWMWM" 

Si0  CALL  CHAR  (  120.  "FCFEFEFFFFFFFFFF  700  DISPLAY  AT  (  1  9  ,  2  )  S  I  Z  E  (  25  )  :  "  w-f  g -f  g 

0000000000C0F0Fa000 1 0 1 010 103070  Fgw>10ww<=<=<=w>100w"   : :  DISPLA 

700a0a08080C0E0E" )  Y  AT (20, 2) S I ZE ( 25) : "wstst; ; wwww 

520  CALL  CHAR ( 124, "07070F 1 F3F3F0000  wwLMLMLMwwwwww " 

E0E0F0FaFCFC00!;-'0C00000000000000  7  10  DISPLAY  AT  (  2  1  ,  2  )  S  I  ZE  (  25  )  :  "  wuvu  v 

00000003")  <=w>14wwNONONOw>200w"  ::  DISPLA 

530  CALL  CHAR ( 12a. "0001060B102040S0  Y  AT ( 22 , 2 ) S I Z E ( 25 ) : " PRESSwPwT0w 

3FC  103020  4  04  08080  I  020  20404080S0  PF  AD  "  S<CHR*  (  1  27  )  S.  "  SwT0wST0P  " 

810  1020204040404")  720  CALL  MAGNIFY  (2)::  CALL  SPRITE  (« 

540  CALL  CHAR ( 1 32, " 4020201 00804020 1  1 , LEVEL , 1 , 29 , 53 , tt2 , LEVEL , 1 , 29 , 1 

000000000 102040S000064B81020201  17, #3,  LEVEL,  1,29,  181) 

00000000007 1F7FFF" )  725  REM  **  PUT  SHAPES  ON  WHEEL  «« 
86  COMPUTB  August  1 984 


SPECIALS  on  INTEGRATED  CIRCUITS 

6502  @  4,90  6520  »  4.00  6522  i?)  5  00  1 1 16  O  I  85 
l^lLfJlL?!}.^.:^  ''''5  6116  p  6.45  4164  ^  6.90 

Anchor 
Automation 
Signalman 
MODEMS 

FREE  SOURCE  MEMBERSHIP  WITH  SIGNALMAN 

All  Signalman  Modems  are  Direct  Conned,  and  piovide  the 
best  price-performance  values  Dealer  and  OEM  inquiries 

VolksniDden  with  computer  caiile  68 

Mark  VI I  Ay  10  Dial/Au  10  Answer  9g 

Mark  XII  Smart  Modem  1200/300  279 


DC  HArES  "SriiJriwdeiii 

— -j-j-j 

DC  Hayes  Smanmodem  1200/300 

519 

i-^^^^        - —^^ 

j8^B^^\ 

PROM  QUEEN  lorC64DrVIC 

130 

Apple  EfliulatDrlor Cgmmodore  S4 

call 

STAT  Stalistlcts  Package  f«r  CB4 

95 

SDiidDak2LeveiSlanilfDrC64iirVIC 

29 

C64/VIC  Switch  inetworking) 

119 

BACKUP  Vf.O  tape  cupler  tor  1)64  or  VIC 

ZO 

CAROBOARD/6  Motherljoaril  -  VIC 

64 

CARDBOARD/5  MoltiijrfloariJ  -  C64 

56 

CARD  PRINT  G  Printe/  Inl  with  Graphics 

?2 

CAR0B0ARD/3S  Mofhertioard  ■  VIC 

22 

CARDCO  C64/VIC  Calculator  Keypad 

32 

CARDRAM/16  RAM  Expansion  ■  VIC 

44 

CIE  and  VIE  IEEE  Interlaces  in  slock 

85 

MSD  Super  Drive  lor  C64  or  IEEE 

3E5 

MAE  Assembler  tor  C64 

50 

Koala  Pad  Touch  Tablet— C64  or  VIC 

75 

CBC  4/ 12  Analog  to  Digital  4  Chan/ 12  hi! 

179 

HUlTIPLAHIorCB4 

79 

Oust  Cover  for  C64  or  VIC 

6 

Grand  Master  Chess  tor  C64 

24 

Husicalc  Soirware  lor  CB4  In  stock 

SM'  Software  larCG4  in  slock 

eusCard  II  Irani  Batteries  Included 

149 

ULTRA  BASIC  -  64  with  Turtle  Graphics 

37 

Super  Disk  Utility  -  C64  -  includes  backup 

19 

Trackball  (Efectra  Concepts)  C64 

29 

MicroChess  -  C64  -  8  levefs  ot  play 

17 

HES  MODEM  with  sgltwart  for  C64 

45 

Commodore  64  Programmers  Relerence  Guide 

16 

WonlPni  3+/B4  with  Spellrighl 

85 

VIController  (also  C54I  -  BSR  Controller 

50 

COM  VOICE  Synthesizer  (or  C64  or  VIC 

139 

VIC  products  rn  slock  -  call  (or  extra  discounts 

Viclont  Software  tor  VIC  and  CB4  in  stock. 

APPLE— FRANKLIN  ITEMS 

FRAN  KLIN— complete  line  in  slock 

gUENTINBri»es  tor  Apple/Franklin 

169 

Swapper  Stopper 

26 

automalic  switch  between  paddles  and  loystick 

KRAFT  Apple  Joystick 

32 

Kratt  Apple  Paddle  Pair 

32 

Ko>la  Pad  Touch  Tablel-Appie/Franklln 

90 

SPINNAKER  Software  in  slock 

Broderhitnd  Software  in  stock 

16K  RAM  Card  Icr  Apple 

59 

Multiplan—Micnisoft 

1B5 

Solid  Oak  2  Level  Stand  for  Apple 

29 

Se(ial  Card  lof  Apple 

89 

MPC  HAM/80  column  can!  lor  lie  jAP/TXTI 

139 

Z80  Soltcard  and  CP/M  |Microsoll( 

235 

RANA  Elite  1  with  Controller 

389 

Parallel  Printer  Interlace/Cable 

69 

Microtek  and  MPC  IntertKes  in  stock 

Grappler  +  Inlertace 

135 

DC  Hayes  Micromodem  li.  lie  with  Smartcom 

245 

PfS:  File  or  PFS:  Report  or  PfS:  Graph 

95 

Videx  60  Column  Card 

209 

Apple  Blue  Book 

19 

Qcommodore 

See  us  for  Pei^onal,  Business,  and  Eitucatlonal 
reqtiirements.  Educational  Discounts  available. 

iPEtSCANi      $245  base  price 

Allows  you  to  connect  up  to  30  CBM/PET  Computers  to 
shared  disk  drives  and  printers.  Completely  transparent  to  the 
user.  Perfect  tor  schools  or  multiple  word  processing  con- 
liguralions  Base  conllguration  supports  2  computers  Addi- 
tional computer  txMkups  S100  each 

COMPACk/StCP  $115 

Intelligent  Terminal  Package  for  PET.  CRM.  CB4 

Includes  ACIA  Hardware  /  STCP  Software 

SCREENMAkER  80  Column  Arfiapter{orCfi4 139 

Provide  big  screen  capabilily  tor  business  applications. 
Copy-Wriler  Word  Processor  (or  C64  49 

Full-leatured  package  with  8O0  lines  of  text  In  memory 
Includes  double  column  printing,  graphic  capability,  lull  prin- 
ter support. 

Special  Screen  maker/Copy- Writer  Combo         179 


60 


78 
285 
189 

40 

36 


PAPER  CUP  Word  Pntcessor-  CBM/C64 

0  BAC  LE  (Consu  Itanll  Oata  Base  by  Batteries  Included 
SPINNAKER  Software  C64.  Apple.  IBM.  Atari 
VICTORY  Sotlware  for  CB4  in  stocic 
Compule!  Books  In  Stock 

POWER  ROM  Utilities  for  PET/CBM 
WordPro  4+  ■  8032.  disk,  printer 
VISICALCfor  PET.  ATARI,  or  Apple 

SM-KIT  entaoced  PET/CBM  ROM  Utilities 

PET  Spacemaker  II  ROM  Switch 

Dust  Cover  for  PET.  CBM.  4040.  or  8050 

CmC  Interfaces  (ADAISOO,  A0A145O.  SADI  in  stuck] 

NES  Software  and  Hardware  in  stocic 

UMi  Products  in  stock 

FlexFileforPET/CBM/CM         $59 

DataBase.  Report  Writer  with  calculations.  Mailing  Lisis 
Easy  to  use,  and  can  be  modified 

FORTH  lor  PEf/CB4  lull  FIG  modeT"  Carglle/Riley'SO 
includes  all  FO  RTH  79  Standard  extensions,  stnjctuied  6502 
assembler  with  nested  decision  macros,  standard  16x64 
screens,  ability  to  read/wiile  BASIC  sequential  files,  sample 
programs,  inlroductory  +  relerence  manual 
Metacompliler  tor  FORTH  lor  independent  obiecl  code  30 
Floating  Point  lor  FORTH  20 

BflIDGE2.'2"forCB4 " "sz's 

Excellent  Budge  program  Computer  bids  and  plays  against 
you  Hands  are  computer  generated,  but  you  may  set  up  hands 
and  modify  contract.  Allows  yen  to  claim  balance  ol  Incks. 
replay  hand,  and  review  previous  Inck. 

kM'MMTASCAlliiorPEt/rtlJ^^^^^^^        "iS 

virtually  lull  Jensen-VI/irth  implementation  is  now  suitable  lor 

advanced  placement  courses, 

EARl  lor  PET/CBM/C64  Disk-based  ASSEMBLER      65 

Dl's  k  I.e.  u!  iinVensiVeCare'  UnTtr      ""  ~ S40 

COMPLETE  DISK  RECOVERr  SYSTEM  FOR  4040/1541 
Edit  disk  blocks:  duplicate  disks,  skipping  ovei  bad  blocks,  un- 
scratch  scratched  files,  check  and  correct  scrambled  tiles, 
recover  improperly  closed  files  Includes  complete  diagnostic 
facilities,  extensive  treatment  ol  relative  files,  optional  output 
to  printer,  and  compf  ehesive  user  manual  (an  excellent  tutorial 
on  disk  operalion  and  1he«y|  Furnished  on  copy- protected 
disk  Backup  available  S10 

Smart  ferminsl  Sofiwjti  for  C647viti      10 

CBM  Public Oomaio Software— CE4/PET 27  ditks  75 
oiTTi)  DISK '64 "36 

Disk  copy  utility  for  064.  Make  your  own  disk  copies,  even  if 
the  original  is  copy  protected 

STAT  tor"PET/c¥M/'C64 'and  Apple 95 

Comprehensive  Statistical  Analysis  Routines 
Includes  complete  file  handling  capabilities,  summary  statis- 
tics, confidence  intervals,  hypothesis  lesls.  exponential  mean 
tests,  mulliple  and  power  series  regression,  analysis  of  vari- 
ance, histograms,  and  non-parametric  lesis. 
Page  Male  60  Command  Word  Processor  20 

Full-featured  package  (or  all  Commodore  computers  Full 
screen  editing,  and  supports  disk,  tape,  and  all  printers 


DISK 
SPECIALS 


Scotch  (3M)  5"  ss/dd 
Scotch  (3M)  5"  ds/dd 
Scotch(3M)8"ss/sd 
Scotch  (3M)B"  ss/dd 


10/2.10  50/1.90  100/ 1B6 

10/2.65  50/2.45  10D/2.40 

10/2.20  50/2,00  100/1.98 

10/2.80  50/2  50  100/2.47 


We  stock  VERBATIM  DISKS 

Wiile  for  Dealer  and  OEM  prices. 


Sentinal  5"  ss/dd 
Sentinal  5"  ds/dd 


10/1,80   50/1.75   too/ 1,65 
10/2  40  50/235   100/2.25 


We  stock  Dysan  disks 


Wabash  5"  ss/sd 
Wabash  5"  ss/dd 
Wabash  5"  ds/dd 


10/145  50/1,40  100/135 
10/1.60  50/(55  100/1.50 
10/195  50/190   100/  1.B0 


We  Stock  MAXELL  DISKS 

Write  lor  dealer  and  OEM  pricet 

Disk  Storage  Pages     1 0  for  S4    Hub  Rings  50  for  S6 
Disk  Library  Cases      8"— 3.00   5"— 2,25 
Head  Disk  Cleaning  Kits    12 
AMARAY  Disk  Storage  Systems  in  stock 
Innovative  Concepts  FLIP  'N'  FILES  in  stock 

CASSETTE  TAPES— ABFA  PE-611  PREMIUM 

C-10  10/61       50/ .58        100/50 

C-_30 10/, 85      50/_^B2        100/70 

l^tunt  I  data 

I  systems 


7^>h-\nk  99        ZVM-123G 

ZVM-131  300       ZVM-135 

2100  lE-bit/B-bIt  System 

Z29  Termnal  (DEC  and  AOM  compaliblel 

Z-15Q  IBM  PC  COMPATIBLE 

Z-lfiOPOHTABLEPC 

We  stock  entire  Zenith  line. 


USI  Video  Monitors  -  Green  or  AMBER  20  MHz  bl-res 
Dealer  and  OEM  inquiries  invlteii 


89 

490 
CALL 

630 

CALL 

CALL 


WRITE  FOR  IBM  PC  COMPATIBLE  PfllCES 

MultlPlait~IBM  or  Apple 

Ouadbcard  (or  IBM  available 

KOALA  PAD  Touch  Tablets— Apple  Atari  IBM  CBM 

Peachtext  5000  Sottware  Package 

PFS  Soffwaie  for  IBM  and  Apple  In  stock 

SPINNAKER  Sottware  C64/VIC.  Apple.  IBM.  Abri 

VOTRAX  Personal  Speech  System 

BMC  9191+  Color  Monitor  (plus  modell 

BMC  12A  12"  Green  Monitor 

Oynax  (Brotheit  iDX-15  Oaisy  Wlieel  Printer 

BtDther  hR-25  Daisy  Wheel  Printer  (25  cps| 

lloh  Prowriler  Parallel  Printer 

Panasonic  1090  Printer  with  Comspondence  Mode 

Gemini  1  OH 

EPSON,  Okidata.  Star  Micronics  printers  in  stock 

USl  CompuMDD  4   R  F  Modulator 

We  Slock  AMOEK  Monitor: 

A  P  Products 

COMPUTER  GOVERUPS  IN  STOCK 

BROOKS  6  Outlet  Suiie  Supprtssor/Noise  Filler 

Surge  Suppfessor-6  outlet 

Electrohome  1302-2  13"  Hires  RGB  Monitor 

Panasonic  12"  Monilor  (20  MH2)  with  audio 

Synerteh  SVM-I  Microcomputer 


179 


199 


269 

245 

79 

459 

749 
379 

279 
289 

29 


15%  OFF 

54 

29 

335 

137 

189 


Hewlett  Packard 

Write  or  call  for  ptices. 


\tJi 


215-822-7727 

252  Bethlehem  Pike 
Col  mar,  PA  1891 5 


A  B  Computers 


DATASHIELD  BACKUP  POWER  SOURCE   $265 

Battery  back  up  Uninterruptible  Power  Supply  with  surge  and 
noise  filtering.  The  answer  to  your  power  problems. 

ATAfll- WE  STOCK  ENTIRE  LINE 

SPINNAKER  and  Broderbund  Software  in  stock. 


WRITE  FOR  CATALOG.  Add  S1 .50  per  order  tof  United  Parcel. 
We  pay  balance  of  UPS  surface  shipping  cfiarges  on  all  prepaid  orders 
(add  extra  for  mail,  APO/FPO,  air).  Prices  include  cash  discount. 
Regular  prices  slightly  higher.  Prices  subject  io  change 


:  FOR  J=3  TO 
DISPLAY  AT(J, 
ICK( ( 1+4) /8) , 
ALL  SOOND(3S, 


FOR  1=1  TO  3  ::   FOR  J=l  TO  3  :: 
READ  ORDER*  ;:  WHEEL*  (  I  , J ) =DRD 
ER*  ::   NEXT  J      ::  NEXT  I   ::   KEY= 
1  : :  GOTO  160 

REM  **  ORDER  OF  SHAPES  ** 
DATA  25312364245314253234, 14216 
3  131564252  13132,234243254243642 

34324 

DATA  12653124135124315246.62543 

5  121 3642 3 146 352,  243524635234235 

42364 

DATA  52134646121531536241,56231 
53  414621 3  1 25645, 2  3456246  356254  3 
5.7Ar;4 

REM  **  CLEAR  WINDOWS  ** 
FOR  1=2  TO  a  : :  DISPLAY  AT(I,2) 
SIZE (25) : "KwwwwwwwKwwwwwwwKwwww 
wwwK"  ::  NEXT  I  ::  RETURN 
REM  **  INITIAL  WINDOW  SHAPES  *» 
FOR  1=1  TO  3  :;  P I CK ( I ) =VAL ( SEG 
*  (WHEEL*  (LEVEL-48,  I)  ,  INT(20*RND 
+  1)  ,  1  >  )  :  :  NEXT  I 

CALL  COLOR (#1  ,  1 ,tt2,  1  , #3,  1 )  :  :  TO 
TAL  =  CI  :  :  FDR  1=4  TO  20  STEP  8  : 
7 

I ) SIZE (5) : SHAPE* (P 
J-2) : :   NEXT  J   : :   C 
-£.,  0)  :  :   NEXT  I   ;  : 
CALL  SOUND ( 100, 44000, 30) 
REM  »*  DISPLAY  MONEY  STATUS  ** 
IF  TDTAL=0  THEN  DISPLAY  ATC24,1 
)  :  RFT*  (CHR*  (30)  ,  5 )  S<  "  D0UwAREwC0W 
wEVEC"?<RPT*(CHR*(30),7)::  RETUR 

N 

TOTAL*=STR« CABS (TOTAL) ): :   LENGT 

H=LEN(TOTAL*) : :  C0LUMN=6+ ( TOTAL 

>0) -INT ( . 5+LENeTH/2) 

IF  TOTAL>0  THEN  DISPLAY  AT(24,C 

OLUMN) SIZE  C20  +  LENGTH)  : CHR* (30>  & 

'■Q0UwAREwW3CC3Cew>"&TOTAL*?<RPT* 

(CHR* (30) , 4) : :      RETURN 

IF  TDTALC0  THEN  DISPLAY  AT(24,C 

0LUMN)SIZE(1S  +  LENGTH)  :CHR*(30)S< 

"G0UwAREwF0S3CGw>"S<TOTAL«?<RPT*  ( 

CHR* (30) , 4) : :      RETURN 

Program  2:  vie  Jackpot 

by  Kevin  Mykyfyn,  Editorial  Programmer 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in. 

10  POKE52 , 28  r  POKE56 , 28 : POKES! , 0 : POKES 5 , 0 ; 

GOSUB300  :rem  158 

20  PRINT"lCLRl"; :FORA=lT04:FORB=lT022 i PRI 

NT"@"? :NEXT:NEXT  :rem248 

30    FORA=lT02iPRINT"@@?ia@@£2    SPACES}|3@ 

{2    SPACES}@@[2    SPACES}(a@@@@ia";  :NEXT 

! rem   141 
40    F0RA=iTO3iFORB=lT022:PRINT"(a";  :NEXT:NE 

XT  :rem  32 

50    PRINTB$V$B$V5B$"    100    "V$B$V$B$" 

{4    SPACES)50":PRINTS$V$S$V$S9" 

{2    SPACES}50    "V5S$V$S?"{4    SPACES}25" 

: rem    172 
70    PRINTBE$V$BE$V$BE$"{2    SPACES } 18    "V$BE$ 

V$BE$V$B$"{2    SPACES)i0"  : rem   101 

80    PRINTC?V$C$V9C$"{2    SPACES} 15    "V?C?V5C$ 

"[5    SPACES}5    " :PRINTV$P$V$P?V$P$" 

{2    SPACES}14    "V$P$V$P?V$B$"l2    SPACES}l 

0"  :rem    158 

95    PRINTL$V5L$V$L$"{2    SPACES) 10    "V$C$" 


730 


735 
740 


7  50 


760 


765 
770 


775 
780 


790 


800 


80  5 
810 


820 


830 


840 


{7    SPACES} 2"  :rem  59 

100    A=RND ( 1 ) :A$  = iGETA? : IFA$  <> "P"ANDA?  <  > 

"E"THEN100  :rem    75 

110    IPa5="E"THENPRINT"IcLR}":POKE36869,24 

0:END  :rem   43 

lis    T$="lDOWN}{2    SPACES} {UP} [2    LEFT) 

[2    SPACES) (DOWN) ":GOSUB210:GOSUB220:G 

OSUB220:PRINTY$"[UPJ{21    SPACES}" 

;rem    127 
120   W=0!H=0:N=1:GGSUB200:GOSUB210:GOSUB26 

0;N=2 :GOSUB200 ;GOSUB220 :GOSUB260 

:rem  10 
140  N=3:GOSUB200:GOSUB220:GOSUB260:rem  63 
145  F0RA=1T024STEP2 :H5=STR$ (H) :H5=RIGHT$ ( 

H$, (LENCH?)-1))  :rem  249 

150  K=LEN(P${A)):IFP5{A}=LEFT$(H$,K)THENW 

=VAL(P5(A+i))  5  rem  60 

160  NEXT:IFW>0THEtIPRINTY?"{UP}  i2  SPACES}Y 

GU  WIN"W-1"DDLLARS" :GOSUB280  : rem  187 
170  TT=TT-ltIFTT>0THENTT$=STR5(TT)+" 

[2  SPACES}" :PRINTY$" [4  SPACES} TOTAL  N 

OVJ  "TT$;  :POKE198,0:GOTO100    :rem  145 
180  PRINTY$"{UP}{4  SPACES)YOU  ARE  BROKE" 

:rem  192 
190  PRINT" {3  SPACES) PLAY  AGAIN {2  SPACES }Y 

/tj  ";  :rem  18 

195  GETA? : IFA$  <> "Y" ANDA5  <> "«"THEN195 

:rem  59 

197  IFA$="Y"THENTT=50:GOTO20      :rem  189 

198  PRINT" ICLR)": END  : rem  23 
200  A=INT(RND(1)*17)+1:B=G%(N,A) :T$=F?(B) 

:H=H*10+B: RETURN  : rem  214 

210  PRINT" {HOME) 14  DOWN) [6  RIGHT) "T9 ;: RET 
URN  :rem  54 

220  PRINT" {up] I  2  RIGHT} "T? ;: RETURN 

:rem  2  53 
260  POKEV, 150 :FORA=1TQ30 :NEXT: POKEV, 0 : IFN 

<  3THENFORA=lTORND ( 1 ) *  200 : NEXT : rem  210 
270  RETURN  : rem  121 

280  F0RQ=1T0W:TT=TT+1:TT$=STR$(TT)+" 

[2    SPACES}" :PRINTY$" U  SPACES} TOTAL  N 

OW  "TT$; : POKEV1,220  : rem  220 

290  FORA=lT01 10-W: NEXT : POKEVl, 0: NEXT: RETU 

RN  :rem  66 

300  PRINT"{CLR} {3  DOWN) [2  SPACES } LOADING 

f SPACE) CHARACTERS"  : rem  8 

305  D1MG%(3, 17) :F0RA=1T03:F0RB=1T017:READ 

C:G%(A,B)=C:NEXT:NEXT  : rem  41 

310  DATAl,  2,  3,  4,  5,  6,  7,  5,  7,  3,  4,  5,  6,  7,  3,  2,  3 

;  rem  231 
320  DATAl,  2,  3,  4,  5,  6,  7,  5,  7,  3,  4,  5,  6,  7,  3,  6,  3 

:rem  236 
3  30  DATAl ,2,3,4,5,6,7,5,7,3,4,5,6,7,3,2,3 

:rem  233 
340  DIMP? (24) :P0RA=1T024:READP${A) :NEXT 

: rem  74 
350  DATA4, 3, 44, 6, 444, 16, 55 5, 11, 661, 11, 666 

,15,331,11,333,19,22,26,22  2,51, 11,51, 

111,101  :rem  103 

400  A=7168:B=7679:C=25600:FORI=ATOB:POKEI 

,PEEK(I+C) :NEXT:POKE36869,2  55:rem  199 
410  READB:IFB=-1THEN430  : rem  95 

420  FORI=0TO7 : READC: POKE7168+B*8+l , C :NEXT 

;GOTO410  :rem  24 

430  B$=" {RED}%&{D0WN) [2  LEFT) ' ( " :S?=" 

(RED) l-lD0WN)[2  LEFT} #$ " :L5=" IGRN) T* 

{DOWN) {2  LEFT) >?":C$=" {RED} ZC {DOWN} 

{2  LEFT] : ; ":P?=" { PUR}£] {DOWN} 

{2  LEFT)<="  :rem  118 

440  BE$="{YEL})*{D0WN){2  LEFT}+, " :LE$=" 

{YEL}T-*{D0WN}  {2  LEFT)>?"  :U$="{UP}  ":V 
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$="fUP)":Y$="{HOMEl{22  DOWN)"  : rem  54 
450  F5(i)=B?:P${2)=S$:F$(3)=BE$:F?(4)=C$: 

FS{5)=L$:F9(6)=P$:F$(7)=LE$  :rein  177 
490  POKE36878,15:V=36877:V1=36876:TT=50-R 

ETURN  .rem  244 

500  DATA26,0,0,0, 1,2,4,8,28        : rem  64 

501  DATA27, 0,0, 128, 128, 128, 64, 56, 124 

:rem  22 

502  DATA28,0,0,0, 3,15, 31,63,63    :rem  218 

503  DATA29, 0,96, 192, 224, 240, 248, 252, 252 

:rem  182 

504  DATA30,0,0, 0,0, 7, 31,63,127    :rem  212 

505  DATA31, 0,0, 0,0, 224, 248, 252, 254 

,-»,  :rem  162 

506  DATA33, 0,0, 15, 15,0,0,0,0      :rem  103 

507  DATA45, 0,0, 248, 248, 24,  48,  96,  192 

:rem  248 

508  DATA3S,1,3,3,3,3,3,0,0         s rem  15 

509  DATA36, 128, 0,0, 0,0, 0,0,0      .^em  108 

510  DATA37, 0,0, 0,255, 205, 128, 177, 170 

: rem  15 

511  DATA3a, 0,0, 0,255, 179,1, 153, 85:rem  128 

512  DATA39, 179, 170, 178, 128, 205, 255, 0,0 

:rem  133 

513  DATA40, 217, 85, 85, 1,179, 255, 0,0 

:rera  185 

514  DATA41,0,0,3,7,15,15,15,15    : rem  219 

515  DATA42, 0,0, 128, 192, 224, 224, 224, 224, 43 
,15,15,31,63,63,63,1,0         ; rem  49 

517  DATA44, 224, 224, 240, 248, 248, 248, 128,0, 

58, 62, 127, 127, 127, 127, 62, 28,0: rem  181 
519  DATA59, 254, 254, 254, 254, 124, 56, 0,0,  60, 

63,63,63,63,31,15,3,0  ;rem  24 

521  DATA61, 252, 252, 252, 252, 248, 240, 224,0, 

62,255,127,63,31,7,0,0,0      :rem  151 
523  DATA63, 255, 254, 252, 248, 224, 0,0, 0,0, 25 

5,255,255.255,255,255,255,255,-1 

;rem  57 


"Jackpot"  for  the  64  features  smooth  sprite  movement  to 
simulate  realistic  casino  action. 


Program  3:  64  Jackpot 

by  Kevin  Mykytyn,  Editorial  Programmer 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 

program  in. 

15    POKES+1, H2:POKES+5, 9:POKES+15, 208:POK 
ES+24,15  :rem    119 

20    POKES+8, 150:POKES+12,8:POKES+13,0 

;rem  94 


25  PRINT" {CLR} "; :FOR  A=1T05 ! FORB=lTO40 : PR 
INT"(RVS)  ";:NEXTB,A  t rem  6 

30  FOR  B=1T05:PRINT"{RVS}E9  SPACES) lOFF] 
{6  SPACES} {rvS} {2  SPACES} (OFF} 
t6  SPACES} {RVS} [2  SPACES} [off} 
{6  SPACES} {RVS} E9  SPACES}"; : NEXT 

: rem  143 

35  F0RA=iTO5 :FORB=1TO40: PRINT" {RVS}  " • ■ NE 
XTB,A:POKE53269,255  :rem'i04 

40  PRINT: PRINT "{RED}  ({8  SPACES } 2 
{4  SPACES} [red} (  ([6  SPACES } 5 
{4  SPACES}  [grn}s.  &  [RED}%{3  SPACES}i0" 

,,-  _  ,  :rem  31 

45  PRINT: PRINT" {GRN3  &{ SHIFT-SPACE} & 

[SHIFT-SPACE }&{ 3  SPACES} 10 (4  SPACES} 

{  YEL  }&{  SHIFT-SPACE  }  S,  {  SHIFT-SPACE }  & 

[3  SPACES} 10{4  SPACES} (PUR} ' 

(SHIFT-SPACE}'   [RED}%{3  SPACES}14" 

:rem  19 
50  PRINT: PRINT" [PUR}  '{SHIFT-SPACE}' 

{SHIFT-SPACE} ■ {SHIFT-SPACE} {2  SPACES } 1 

4(4  SPACES} {RED} ( {SHIFT-SPACE} ( 

[SHIFT-SPACE} ({3  SPACES} 15 {4  SPACES} 

( YEL} #{ SHIFT-SPACE}* (SHIFT-SPACE} (RED) 

%(3  SPACES} 18"  -rem  91 

55  PRINT: PRINT" {YEL}  # {SHIFT-SPACE} # 

[SHIFT-SPACE}#(3  SHIFT-SPACE } IB 

(4  SPACES} [ RED} $( SHIFT-SPACE}? 

{SHIFT-SPACE}$[3  SPACES}50(4  SPACES} 

( RED} % {SHIFT-SPACE} % [ SHIFT-SPACE} % 

(2  SPACES  3 100 ":GOTO400  : rem  34 

60  POKE  53281, i:POKE53275,255:D$="{HOME} 

[23  DOWN}"  srem  233 

65  PRINT" (3  D0WN}(BLK}{rVS}(16  RIGHT} JACK 

POT"  -rem  237 

70  PRINT" [2  DOWN}  YOU  WILL  BEGIN  WITH  $50 

AND  TRY  AND"  : rem  94 

75  PRINT" {DOWN} {8  SPACES}TURN  IT  INTO  A  F 

ORTUNE."  :rem  0 

80  PRINT" (down}  it  WILL  COST  YOU  ?1  FOR  E 

ACH  PULL."  :rem  13 

85  PRINT" {down}  to  PULL  THE  HANDLE  USE  TH 

E  KEYS  1-4."  :rem  134 

90  PRINT" [DOWN}  THE  HIGHER  THE  NUMBER,  TH 

E  HARDER  THE  .-rem  15 

95  PRINT" {DOWN} {13  SPACES} PULL  WILL  BE." 

: rem  122 
100  PRINT" [DOWN}  TO  STOP  THE  GAME  AT  ANY 

(SPACE}TIME  PRESS  (E)"         : rem  38 
105  PRINT" {2  DOWN}  PLEASE  WAIT  WHILE  I  LO 

AD  THE  SPRITES"  : rem  101 

110  DIM  WIN$(24)  :rem  53 

115  FOR  A=1T024:READWIN$(A):NEXT  : rem  169 
120  DATACHERRY,2,CHERRYCHERRY,5,LIMELIMEB 

AR,10,L:mELIMELIME,10  :rem  9 

125  DATAPLUMPLUMBAR,14, PLUMPLUMPLUM, 14, BE 

LLBELLBAR,18  :rem  223 

130  DATABELLBELLBELL,ia,SEVENSEVENSEVEN,5 

0,BARBARBAR,100  :rem  72 

135  DATALEMONLEMONLEMON, 10,CHERRYCHERRYCH 

ERRY,15  :rem  214 

140  M=2047:NN=12288: 00=53248: 8=54272 :FORL 

=STOS+24:POKEL, . :NEXT         : rem  249 
145  POKE  S+5,9;POKES+6,0:POKES+24,15:POKE 

S+1,120  ;rem  16 

150  FORI=49664T0497 14: READS :B=B+239:POKEI 

,B:NEXT  :rem  177 

155  DATA  4,2,3,7,5,6,7,6,3,1,5,5,7,4,6,7, 

6  :rem  249 

160  DATA  1,2,5,4,5,6,7,4,3,7,5,6,7,2,6,7, 

3  :rera  241 
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165  DATA  1,2,3,4,5,6,7,7,3,4,5,6,7,5,6,7, 

4  :rem  248 

170  FORI=830TO833:POKEI,0:NEXT    :rem  104 
175  AA=1 5360 : BB=1 5807 :CC=12568:DD=126i5 

: rem  92 

180  FOR  A=AA  TO  BB:READB;IF  B=> .  THEN  POK 

EA,B:GOTO  190  : rem  13 

185  D=ABS(B)-1:F0RC=.  TO  D:POKE  A+C, . :NEX 

T:A=A+D  :rem  239 

190  NEXT  :rera  217 

195  POKE56334, PEEK ( 56334 )AND254:P0KE1, PEE 

K(1)AND251 :FDR  I=.  TO  M       : rem  133 

200  POKE  NN+I, PEEK (OO+I): NEXT: POKE  1 , PEEK 

(l)OR4:POKE56334, PEEK( 56334 )ORl 

; rem  39 
205  PRINT" {CLR)": FOR  I=CC  TO  DD:READB:POK 
E  I,B;NEXT  : rem  132 

210  POKE53272, (PEEK{53272 ) AND240 )0R12 

:rem  40 

215  POKES 3249, 48: POKES 3251, 90 :POKE532 5 3, 4 

8:POKE53255,90  : rem  105 

220  POKE53257,48:POKE53259,90     : rem  103 

225  FORQ=2041TO2045STEP2:POKEQ, 240: NEXT 

: rem  166 
2  30  POKE53248, 97: POKES 3250, 97 :P0KE5 3252,1 
60 : POKE53254, 160 : POKE53256 , 223 

:rem  247 

235  POKE53258,223:POKE53271,255:POKE53277 

,255  :rem  255 

240  U=0:A=49152:B=49475:FORI=ATOB:READC: : 

U=U+C : POKEI , C : NEXT : IFU=38200THENRETUR 

N  :rem  11 

245  PRINT  "ERROR  IN  DATA  STATEMENTS  645-8 

45 1 " :END  :rem  78 

250  FORA=67  9T0685:POKEA, INT (RND( 1 ) *16 )+l : 

NEXT  :  rem  193 

255  PRINTD$"J35  SPACES }": SYS  49152: POKE  S 

+11,128  :rem  35 

260  SPIN$="" :FORB=2041TO2045STEP2:Q=PEEK( 

B)-239  :rem  5 

265  ONQGOSUB365,370,375,3a0,385,390,395 

: rem  98 
270  NEXTsWIN=0  : rem  109 

275  IFSPIN$="BARBARBAR"THENGOSUB  850 

: rem  215 
280  FORA=lT024:L=LEN(WIN$(A) ) iIFLEFT$(SPI 
N$,L)=W1N$(A)THENWIN=VAL(WIN$(A+1)) 

:rem  125 
285  NEXT:TT=TT-1  : rem  3 

290  IP  WIN<>aTHENPRlt}TD$"(i0  SPACES}YOU  \i 
IN  "WIN"  DOLLARS";  : rem  147 

295  IF  WIN>5  THENPRINT"  1"  ,-         :  rem  236 
300  IFWIN=0THEN325  : rem  70 

305  POKE  S,80:POKES+1, 112:POKES+15,208 

:rem  153 

310  FORTT=TT+iTOTT+WIN-l:POKES+4,21 :FORTD 

=1TO150-WIN:NEXT  : rem  196 

315  T$=STR$ (TT) :PRINTD$"[DOWN} [5  SPACES]Y 

OUR  TOTAL  IS  NOW  "T?"  DOLLARS 

[2    SPACES}",-  ,.  :rem  83 

320  POKES+4, 20 :FORT=lTO 150: NEXT: NEXT: POKE 

S+1,0:POKES+15,0  trem  47 

32  5  T$=STR$(TT) :PRINTD$"lDOWNl l5  S PACES }Y 

OUn  TOTAL  IS  NOW  "T$"  DOLLARS 

12    SPACES]";  : rem  84 

330  IF  TT>0  THEN  360  : rem  3 

335  PRINTD$"t8  SPACES ) SORRY  BUT  YOU'RE  BR 

OKE"  : rem  140 

340  PRINT"  [3  SPACES}DO  YOU  ViANT  TO  PLAY  A 

GAIN?  [2  SPACES  )Y/NU  SPACES}"; 

:rem  187 


345  GETA$:IFA$<>"Y"ANDA$<>"N"THEN345 

: rem  53 
350  IF  A$="Y"THEN  10  : rem  246 

355  POKE  53269, 0:PRINT" (clr}" :END:rem  224 
360  POKE  198,0:GOTO  400  : rem  205 

365  SPIN$=SPIN$+"BAR" : RETURN  : rem  245 
370  SPIN$=SPIN?+"SEVEN" : RETURN  : rem  157 
375  SPIN$=SPIN$+"BELL" :RETURN  : rem  64 
380  SPIN$=SPIN$+"CHERRY": RETURN  : rem  234 
385  SPIN?=SPIN$+"LIME" :RETURN  : rem  73 
390  SPIN9=SPIN$+" PLUM" ; RETURN  ; rem  92 
395  SPIN$=SPIN$+" LEMON" : RETURN  :rem  158 
400  GETA$:IFA$="E"THEN  PRINT" [CLR} ": POKE 

{SPACE}53269,0:END  : rem  63 

405  A=RND(1)  :rem  125 

410  IF  A9<"1"  OR  aS>"4"  then  400  : rem  185 
415  POKE  49238,VALCA?) :GOT0  250  :rem  162 
420  DATA-12,255,255,255,204  :rem  90 
425  DATA204,205,128,0,3,158,28,115 

:rem  179 
430  DATA209,34, 73,209,34,73,158,62 

;rem  195 
435  DATA115,145,34,75,209,34,73,222 

:rem  240 
440  DATA34,73,128,0,3,153,153,179:rem  136 
445  DATA255,255,255,-22  : rem  160 

450  DATA3,255,240,3,255,240,3  : rem  184 
455  DATA0, 112,0,0,224,0,1, 192  : rem  165 
460  DATA0, 3, 128,0,14,0,0,28  : rem  69 
465  DATA0, 0,56, 0,0, 112,0,0  : rem  12 
470  DATA112, 0,0, 112, 0,0, 112,0  : rem  149 
475  DATA0, 112,-21,60  :rem  248 

480  DATA0, 0,255, 0,1, 255, 128, 3  :rem  177 
485  DATA255, 192,3,255,192, 3,255, 192 

:rem  253 
490  DATA3,255,192,3,255,192,3,255:rem  144 
495  DATA192,7,255,224,15,255,240,63 

:rem  248 
500  DATA255, 252, 127, 255, 254, 127, 255, 254 

:rera  186 
505  DATA127,255,254,0,24,-18,48  :rem  37 
510  DATA0,0,80, 0,0, 136,0,1  srem  7 

515  DATA4,0,2,2,0,2,1,240  :rem  218 
520  DATA15, 129, 248, 31, 195, 252, 63, 227 

I rem  37 
525  DATA252,63,227,252,063,225,248,63 

:rem  89 
530  DATA224,240,31,192,0,15,128,-27 

:rem  219 
535  DATA255,0,3,255,192,15  :rem  48 
540  DATA255,240,31,25  5,248,63,255,252 

:rem  85 
545  DATA127, 255, 254, 255, 255, 255, 127, 255 

:rem  199 
550  DATA254,63,255,252,31,25  5,248,15 

srem  37 
555  DATA255,240,3,25  5,192,0,255,-16,255 

;rem  178 
560  DATA0,0,0,0,2,0,0,4  :rem  111 

565  DATA0,0,8,0,0,60,0,0  :rem  172 

570  DATA255,0,3,255,192,7,255,224:rem  140 
575  DATA15, 255, 240, 15, 255, 240,  15,  255 

: rem  33 
580  DATA240,15,255,240,7,255,224,3 

;rem  183 
585  DATA25 5, 192, 0,25 5, 0,0,  60, -16,  255, -10 

:reni  208 

590  DATA255,0,3,255,192,15  :rem  49 
595  DATA255,240,31,255,248,63,255,252 

:rem  95 
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600  DATA12 7, 2 55, 254, 25 5, 25 5,  255, 127, 255 

:reni  191 
605  DATA254,6  3,255,252,31,25  5,248,15 

:rem  38 
610  DATA255,240,3,25  5,192,0,2  55,-16,255 

:rem  170 
615  DATA24,60,60,60,126,2  55,255,24 

:rem  185 
620  DATA127,3,6,12,24,24,24,0  :rem  174 
62  5  DATA0, 25  5, 129, 255, 255, 129, 255,0 

:rem  243 
630  DATA0, 0,60, 126, 255, 126,60,0  : rem  17 
635  DATA4, 8, 60, 126,255,126,60,0  :rem  34 
640  DATA8, 20, 38,111,255,246,96,0  : rem  87 
645  DATA169,0,141,176,2,141,177,2:rem  138 
650  DATA141,178,2,173,176, 2,208,16 

:rem  189 
655  DATA206,167, 2,208,11,173,168,2 

:rem  190 
660  DATA141, 167,2, 162 , 0, 32, 2  34, 192 

:rera  179 
665  DATA173, 17  7,2,208, 16,206,169,2 

:rem  198 
670  DATA208,11,17  3,170,2,141,169,2 

:rem  180 
6  75  DATA162,4, 32,234,192,173, 178,2 

:rem  196 
680  DATA208,16,206,171,2,208,11,173 

;rem  231 
685  DATA172,2,141,171,2,162,8,32  : rem  84 
690  DATA234, 192, 238 , 17  3, 2 , 208 , 188 , 238 

:rem  100 
695  DATA61,3,173,61,3,201,2,208  : rem  32 
700  DATA17a, 169,0, 141,61,3, 169, 128 

:rem  192 
705  DATA141,11,212,238,168,2,208,5 

:rem  180 
710  DATA169,25  5,141,16B, 2,173, 168,2 

:rem  245 
715  DATA201, 112, 144, 22, 173, 176, 2, 208 

:rem  20 
720  DATA17,173, 1,208,201,48,208,10 

:rem  175 
725  DATA169, 129, 141, 11, 212, 169, 1,141 

;rera  28 
730  DATA176,2,238,170,2,208,5,169;rem  142 
73  5  DATA255,141,170,2,173,170,2,201 

: rem  225 
740  DATAl 12, 144,22, 173, 17  7,2,208,17 

: rem  232 
745  DATA173,5,208,201,48,208,10,169 

:rem  242 
750  DATA129, 141, 11, 212, 169, 1,141, 177 

:rem  25 
755  DATA2,238,172,2,208,5,169,255:rem  149 
760  DATA141,172,2,173,172,2,201,112 

:rem  219 
765  DATA144,22,173,178,2,208,17,173 

:rem  247 
770  DATA9, 208, 201,48, 208, 10, 169, 129 

:rem  245 
775  DATA141,11,212,169,1,141,178,2 

;rem  183 
780  DATA24,173,176,2,109,177,2,109 

;rem  195 
785  DATA178,2,201,3,240,3,76,11    :rem  34 
790  DATA192,96,160,2,254,l,208,189:rem  202 
795  DATAl, 208, 201, 130, 208,  62, 169, 194 

;rem  37 
800  DATA133,252,152,72,138,72,74,141 

:rem  29 


Notes  For  The 
Commodore  And 
IBM  Versions 

The  VIC-20  version  of  "Jackpot"  (Program 

2)  plays  the  same  as  the  TI  version,  but  does 
not  offer  a  choice  of  different  levels  at  the 
beginning  of  the  program.  The  faces  of  each 
of  the  three  wheels  are  numerically  repre- 
sented in  the  DATA  statements  in  lines 
310-330.  A  1  represents  a  bar,  2  is  a  seven,  ^ 
3  a  bell,  4  a  cherry,  5  a  lime,  6  a  plum,  and  I 
7  a  lemon.  To  change  the  odds,  simply 
change  the  numbers  in  the  DATA  state- 
ments. For  example,  if  you  change  all  the 
numbers  in  the  DATA  statements  to  1,  you 
will  always  spin  triple  bar. 

The  Commodore  64  version  (Program 

3)  is  very  different  from  the  other  games. 
Using  a  machine  language  subroutine  and 
colored  sprites,  a  smooth  spinning  effect  \&^^^ 
created.  A  total  of  six  sprites  are  used  (tw^^ 
for  each  window).  The  different  shapes  are  " 
displayed  by  changing  the  sprites'  data 
pointers. 

You  can  alter  the  odds,  in  the  same  way :, 
as  the  VIC  version,  by  changing  the  num- 
bers in  the  DATA  statements  in  lines 
155-165. 

The  IBM  version  of  Jackpot  (Program  4) 
uses  the  graphics  PUT  and  GET  commanc 
to  display  various  shapes  on  the  screen.  To 
run  this  program,  therefore,  requires  either 
Cartridge  BASIC  (PCjr)  or  BASJCA  and  the 
Color/Graphics  Adapter  (PC).  The  rules  are 
the  same  as  for  the  TI  version,  but  the  pay- 
offs are  slightly  different.  In  the  IBM  ver- 
sion, you  begin  with  $100.  If  you  want  to 
change  the  odds,  change  the  numbers  in  the 
DATA  statements  in  lines  1310-1330. 


805  DATA80,3,74,170,189,65,193,133 

:rem  202 
810  DATA251,254,62,3,189,62,3,201:rem  133 
815  DATA17,208,5,169,0,157,62,3  ;rem  43 
820  DATA168,177,251,174,80,3,157,248 

:rem  48 
825  DATA7,56, 233,240, 168, 185,58, 193: rem  4 
830  DATA157,39,208,104,170,104,168,169 

:rem  141 
835  DATA48, 157, 1,208, 232, 232, 136, 208 

:rem  36 
840  DATA179,96,2,2,7,2,5,4  :rem  48 
845  DATA7,0,17,34  -rem  117 

850  B=0:POKES+5,9;POKES+6,9        :rem  79 
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855  FORA=1TO130 ; POKE5328i , A: POKE53280 , 256 
-A:B=-(B=0):POKE53271,255-255*B 

:reni  56 

860  POKE  53277, 255-255*B:POKES+l,A!POKES+ 

4,33:FORTD=lTO20:POKES+4,32   : rem  220 

865  FORTD=lTO20:NEXT:NEXT:POKES+4, 32: POKE 

S+1 , 0 : POKES-992 , 6 : POKES-991 , 1 : RETURN 

:rem  153 

Program  4:  PC/PCjr  Jackpot 

by  Kevin  Mykytyn,  Editorial  Programmer 

10  DEFINT  A-Z: SCREEN  1:KEY  OFF 

20  DEF  SEG=0:POKE  1047,64 

30  GOSUB  430:DIt1  A(E)  s  A(0)=X:  A  ( 1)=Y:F0R 

1=2  TO  E:READ  Ad):  NEXT 

40  GOSUB  430: DIM  L(E) !L(0)=X! L ( l)=YiFDR 

1=2  TO  E:READ  L (I); NEXT 

50  BOSUB  430: DIM  B(E) ; B(0)=X: B < 1)=Y:F0R 

1=2  TO  EiREAD  BCI):NEXT 

60  GOSUB  430:DIM  S(E) : S(0)=X: S ( l)=YiFOR 

1=2  TO  EsREAD  S (I ) : NEXT 

70  GOSUB  430:DIM  CA (E) : CA (0)=XsCA ( l)=VsF 

OR  1=2  TO  EsREAD  CAtDsNEXT 

80  GOSUB  430; DIM  CH tE) :CH (O) =X: CH( l)=y!F 

OR  1=2  TO  E:READ  CH(I):NEXT 

90  SOSUB  430SDIM  BN (E) : BN (O) =Xs BN( 1)=Y: F 

□R  1=2  TO  EsREAD  BNCDiNEXT 

100  COLOR  0,2:CLS:G0SUB  1300: T= 100 

110  LINE  (76,20)-(112,50),2,B:LINE  (142, 

20)-C17a,50) ,2,B:LINE  (208, 20) -<244, 50> , 

2,B 

120  PUT  (10,75) ,S;PUT  (50,75) , S: PUT  (90, 

75), S: PUT  (200, 75), S: PUT  (240, 75), B 

130  PUT  (10, 100), CH: PUT  (50, 100) ,CH:PUT 

(90, 100) ,CH:PUT  (200, 100) , CH: PUT  (240,10 

0)  ,CH 

140  PUT  ( 10, 125), L: PUT  (50, 125) , L: PUT  (9 

0, 125),L:PUT  (20O, 125),CH 

150  PUT  (10,  150)  ,  A:  PUT  (50,  150)  ,  A:  PUT  (9 

0,150), A: PUT  (200, 150) , AsPUT  (240, 150), A 

160  PUT  (10, 175), CA: PUT  (50, 175) , CA: PUT ( 

90, 175), CA; PUT  (200, 175) ,CA: PUT  (240,175 

),CA 

170  LOCATE  12,17:PRINT  "  25":LGCATE  12,3 

6: PRINT"  10" 

180  LOCATE  15,17;PRINT  "  15":L0CATE  15,3 

6: PRINT  "   5" 

190  LOCATE  IB, 17: PRINT  "  10": LOCATE  18,3 

6: PRINT  "   2" 

200  LOCATE  21,17:PRINT  "  18":LaCATE  21,3 

6: PRINT  "  10" 

210  LOCATE  24,17:PRINT  "  14";:L0CATE  24, 

36: PR I NT  "  10";: GOSUB  420 

220  LOCATE  8, 5: PRINT  "Press  (P)  to  play 

or  (E)  to  end"; 

230  IF  T<=0  THEN  LOCATE  7, 5: PRINT  "  Sorr 

y,you  are  broke.  Play  again  ?  (y/n)":EOT 

0  440 

240  H=O:W=0:A$=INKEY«sA=RND(l>; IF  A*<>"E 

"  AND  A$<>"P"  THEN  240 

250  IF  A»="E"  THEN  CLSsEND 

260  X=79:Y=24:WH=1: GOSUB  320: X=145: WH=2s 

GOSUB  320:  X=211:WH=3: GOSUB  320 

270  FOR  A=l  TO  24  STEP  2:H*=STR* (H) :H*=R 

IGHT*(H*,  (LEN(H*)-1) ) 

280  L=LEN(P«<A)) :IF  P* (A) =LEFT* (H*,L)  TH 

EN  W=VAL(P«(A+1) ) 

290  NEXT: IF  W>0  THEN  GOSUB  400 

300  T=T-1: GOSUB  420 


310  POKE  1050, PEEK ( 1052) : GOTO  230 

320  FOR  J=l  TO  RND(1)«6+5:K=INT(RND(1)«1 

7)+l:0N  G(WH,K)  GOSUB  330,340,350,360,37 

0,380, 390: SOUND  20«K+37, . 1 : FOR  TD=  1  TO 

J«40 : NEXT: NEXT: H=H« 1 0+G ( WH , K ) : RETURN 

330  PUT  (X,Y),B,PSET- RETURN 

340  PUT  (X, Y) ,S,PSET: RETURN 

350  PUT  ( X , Y ) , A , PSET : RETURN 

360  PUT  <X, Y) ,CH,PSET:RETURN 

370  PUT  (X,Y> ,L, PSET: RETURN 

380  PUT  (X, Y) ,CA, PSET: RETURN 

390  PUT  (X,Y> ,BN, PSET: RETURN 

400  IF  W=101  THEN  PLAY  SONG*: T=T+1 : FDR  A 

=1  TO  25: T=T+4: GOSUB  420: NEXT: RETURN 

410  FDR  A=l  TO  W: T=T+1 : BOSUB  420: FOR  B=l 

531  TO  1540: SOUND  B, . 1 : NEXT: NEXTs RETURN 

420  LOCATE  1,5: PRINT  "Winnings  "T-lOO" 

"; LOCATE  1,25: PRINT  "Total  "T"   ": RETURN 

430  READ  X,Y;E=(4+INT( (X+7)/8)«Y>/2:RETU 

RN 

440  A$=INKEY«:IF  A*<>"Y"  AND  At<>"N"  THE 

N  440 

450  IF  A$="Y"  THEN  LOCATE  7, 5: PRINT  " 

ONE  MOMENT  PLEASE  ":R 

UN  ELSE  CLSsEND 

460    DATA    &H40,&H17,&H0,&H1400,&H0,&H0,S.H 
0,?<H500 

470    DATA    &HO,&HO,&H0,8(H10O,?<H4O,&H0,8<HO, 
S(HA90A 

480    DATA    EtHA06A,&HO,&HO,8<HAA2A,!(HA8AA,8(H 
0,?(H0,?<HAAAA 

490    DATA    8(HAAAA,StHO,&H200,«<HAAAA,&HAAAA, 
&H80,  ?<HA00,  SrHAAAA 

500    DATA    8(HAAAA,&HAO,&rH2AOO,S(HAAAA,«<HAAA 
A,  e<HAe,  8(H2A00,  &HAAAA 

510    DATA    £<HAAAA,«cHA8,8(HAAOO,!<HAAAA,StHAAA 
A, &HAA, &HAAOO, &HAAAA 

520    DATA    &HAAAA,StHAA,&HAA00,&HAAAA,5cHAAA 
A,  StHAA,  &HAAOO,  &HAAAA 

530    DATA    ?<HAAAA,«cHAA,&HAAOO,&HAAAA,!<HAAA 
A,  &HAA ,  ?<H2A00,  &HAAAA 

540    DATA   &HAAAA,&HA8,&H2A00,&HAAAA,&HAAA 
A ,  8<HAa ,  &HA0O ,  StHAAAA 

550    DATA   &HAAAA,!(HAO,&H200,&HAAAA,I<HAAAA 
,StH80,&HO,8<HAAAA 

560    DATA    8<HAAAA,&HO,&HO,&HAA2A,8tHA8AA,&H 
0,S<H0,8tHAA0A 
570    DATA    g(HA0AA,&H0,8<HO,&HASOO,&H2A,&HO, 

&H0 

580    DATA    8tH40,«<H17,SeH0,ltHO,!«HO,&H0,8cH0,& 

HO 

590   DATA   feHO,fcHO,&HO,8cHO,&HO,8cHO,8<HO,8cH5 

501 

600    DATA   !cH4055,&H0,&H0,&H5515,8tH5455,8(H 

0,8<H10O,8(H555S 

610   DATA    &H5555,8cH40,S<H1500,SeH55S5,8cH555 

5,  &H54,  &H5500,  ScH5555 

620   DATA   «<HS555,8cH55,StH5501,&H5555,8cH555 

5,  8tH4055,  &H5505,  &H5555 

630    DATA    !tH5555,&H5055,&H5515,&H5555,S<H5 

555,  8.H5455,  &H5555,  &H5555 

640    DATA    8<H5555,&H5555,S(H5515,!<HS555,«cH5 

555,  8.H5455,  «<H5505,  &H5555 

650    DATA    8tH5555,8cH5055,&H5501,S<H5555,ItH5 

555, &H4055, &H5500, &H5555 

660    DATA    8(H5555,&H55,8cH1500,S(H5555,i.H555 

5 ,  l<H54 ,  &H  1 00 ,  «<H5555 

670    DATA   &H5555,S<H40,?<HO,«(H5515,«<H5455,& 

H0,gcH0,&H5501 
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680   DATA   &H4O55,8tH0,8tH0,&HO,!<HO,&H0,«tH0, 

ScHO 

690   DATA    l<HO,!£HO,«(HO,«.HO,8(HO,8(HO,&HO 

700    DATA    8tH40,&H17,&HAAAA,&HAAAA,8!HAAAA, 

&HAAAA,  tcHAAAA,  ScHAAAA 

710    DATA    g<HAAAA,«<HAAAA,&HA2AA,8tHAAA0,«<H8 

A2A,  S(HAAA2,  8<H80AA,  8(H28A0 

720  DATA  &H2OA,&HAAS0,«eHAO,&H0,!cH0,&HA0O 

,&HAAA2,fcH2AS0 

730    DATA    S<HAAB,&HAAA,&HAAA2,&HAAA0,8tHAAA 

,  &HBAAA,  ScH80A2,  &HAOAO 

740   DATA    8(HA0A,&H8A02,8(H80A2,&HA0AO,&HAO 

A,  8(HBA02,  8cHSOA2,  &HA0A0 

750   DATA    8cHA0A,S<H8A02,&HAAA2,&HAA80,&HAA 

A,  &HAAA,  K<HAAA2,  StHAABO 

760    DATA    !(HAAA,&HSAAA,S(HBOA2,S(HAOA0,&HAO 

A,  &HBA02,  &HB0A2,  StHAOAO 

770    DATA    StHA0A,StH8A02,!(Ha0A2,&HA0A0,8(HA0 

A,  &HBA02,  8<HBOA2,  SiHAOAO 

780    DATA    S<HAOA,8<HaAO2,EcH82A2,&HA0A0,&HA0 

A,  8tH8A02,  &HAAA2,  &HA0B0 

790   DATA   8(HAOA,&HBA02,&HA0,&H0,8<H0,&HA0O 

,8(H80AA,8!H2BA0 

800    DATA    &H20A,&HAA80,&HA2AA,8(HAAA8,S<HBA 

2A,  8(HAAA2,  &HAAAA,  StHAAAA 

BIO    DATA    &HAAAA,&HAAAA,&HAAAA,8(HAAAA,EtHA 

AAA,&HAAAA,&H0 

820    DATA    «(H40,8cH17,StH0,&HAAAA,&HASAA,S!H0 

,S(H0,&HAAAA 

830    DATA    &HABAA,«(HO,&HO,8tH0,8tHA8O0,&H0,K( 

HO.StHO 

B40    DATA    &HA002,&HO,&HO,&HO,&HBOOA,&HO,8c 

HO,&HO 

850    DATA    g<H2A,&HO,&HO,&HO,8<HAB,S(HO,8(HO,Sf 

H200 

860    DATA    «(HA0,&H0,&H0,&HA0O,«!H8O,g!H0,&HO 

, &H2A00 

870    DATA    «<H0,&H0,8«H0,8(HA800,&H0,8cH0,&H0, 

&HA002 

880    DATA    8cHO,&HO,8(HO,8(HA002,&HO,StHO,&HO, 

&HA002 

890    DATA    8!H0,&H0,ScH0,8!HA002,&H0,8tH0,8(H0, 

8cHA002 

900    DATA    8!HO,S(HO,S(HO,&HA002.8cHO,!<HO,8tHO, 

&HA002 

910    DATA    «tH0,&H0,&H0,StHA002,&H0,&H0,&H0, 

&HA002 

920    DATA    &HO,&H0,E(HO,g(HAOO2,8(HO,8<H0,&H0, 

&HA002 

930    DATA    S<H0,&H0,?<H0,E<H0,!<H0,&H0,8<H0 

940    DATA    gcH40,«'.H17,E<H0,&H0,&H0,&H0,8!H0,& 

HO 

950    DATA    g<H0,E!H0,&H0,&H0,&H0,&H0,&H0,«tH0 

960    DATA    SfH0,StH0,«!H0,&HO,&HO,8tHO,&HO,&HO 

970    DATA    8<Hn,&H0,?<H0,S!H0,&H0,!(H0,SfHO,S<H0 

980    DATA    S<H0,8cHl00,&H0,&HFF00,?-<HFFFF,&Hi 

FC,&H0,?<HFFFF 

990    DATA    S<HFFFF,StH4FF,8!HFFOO,«<HFFFF,&HFF 

FF,  &HD5FF,  &HFFFF,  ?.HFFFF 

1000    DATA    &:HFFFF,&HD4FF,StHFFOO,8<HFFFF,StH 

FFFF,  «<HD5FF,  &H0,  &HFFFF 

1010    DATA    8<HFFFF,&H4FF,S<HO,&HFFOO,&HFFFF 

,?<H1FC,S<H0,S<H0 

1020    DATA    8<HO,8cH100,8<HO,&HO,  ScHO,  SfHO,  ScHO, 

&H0 

1030   DATA    8(HO,StHO,S<HO,&H0,&H0,ScH0,«<H0,&H 

O 


1040    DATA    !(HO,ScHO,8(HO,&HO,8<HO,8tHO,&HO,&H 

0 

1050    DATA    S(H0,&H0,&HO,&H0,&H0,«fH0,!(HO 

1060    DATA    ?vH4O,&H17,&HO,g,H0,StHO,&HO,!<H0, 

&H0 

1070    DATA    &H0,&HO,«(H0,S(HO,StH0,&HO,&H0,&H 
0 

1O80    DATA    &H40,8<H0,&HO,8tH0,«cH40,8(HO,«cHO, 
&H0 

1090    DATA    &H40,&HO,&HO,&H100,«(H10,8tHO,8(H 
0,&H400 

llOO   DATA   &H4,&HO,&HO,8tH1000,&H5001,«<HO, 

&H0,  8(H4000 

1110    DATA    &H400,&H0,!tH0,fcHl,&H2A00,&H80, 

&H0,StHS02A 

1120    DATA   &HAA00,g(HE0,«<H0,g<HA0AA,8(HAB02, 

SrHEB,  &H200,  StHABFA 

1130    DATA    S(HAA02,&HAS,8fH200,S(HA8EA,&HAA0 

2 , &HA8 , &H200 , &HASAA 

1140    DATA    8<HAA02,8cHA8,8fH200,&HASAA,8(HAAO 

0,8tHA0,«(H0,&HA0AA 

1150    DATA   &H2AO0,8<H8O,?tH0,&H802A,&H0,&H0 

,&H0,&H0 

1160   DATA    &H0,&H0,8!H0,&H0,&H0,8cH0,!<H0,&H 
0 

1170  DATA  &H0,!<H0,&H0,&H0,S<HO,&H0,«cHO 
liao  DATA  &H40,&H17,S(H0,«cH0,8(H0,&H0,«<H0, 
&HC00O 

1190    DATA    8tHO,8(H0,8(HO,&H3O03,&HO,8<HO,&H0 
,8<HC0C 

1200    DATA    S(H0,g(H0,&HO,&HF3O,&HCO,&HO,&HO 

, &HF3C 

1210    DATA   S<HFC,&H0,S<HO,&H33F,«tHFF,«tH0,8,H 

0,E<HC33F 

1220    DATA    S(HC0FF,&HO,8!H0,&HFO3F,8tHFOFF,& 

HOj&HO.&HFCOF 

1230  DATA  &HFC3F,g<HO,«<HO,&HFFOF,S<HFFOF,8( 

H0,&H0,&HFF03 

1240    DATA    S<HFFC3,&HC0,&H0,«(HFFO3,&HFFF0, 

&HFO,&HO,8.HFF00 

1250    DATA    &HFFC,S<HFC,S(HO,&H3FOO,StHFF,fcHF 

F,S<H0,?<HF00 

1260    DATA    8tHC0FF,S<HCOO3,&H0,&H3O0,S<HF0FF 

,!<HO,5;HO,8!HO 

1270  DATA  &HFC3F,&HO,&H0,StHO,!(HFFO3,S<H0, 
&HO,&HO 

1280    DATA    &H30O,&HCO,8<HO,S<H0,&H0,S<HO,&H0 
,&H0 

1290    DATA    8tHO,&H0,gtHO,CtH0,&H0,&H0,?<H0 
1300    DIM    G(3, 17):F0R    A=l    TO    3:FDR    B=l    TO 

17:READ  B ( A, B) : NEXTiNEXT 
1310  DATA  1,2,1,4,5,6,7,5,7,3,5,5,6,7,3, 
2,5 

1320  DATA  1,2,3,7,5,6,7,5,7,3,4,5,6,7,3, 
2,3 

1330  DATA  1,2,3,4,5,6,7,5,7,3,4,5,6,7,5, 
2,3 

1340  DIM  P*(24):FDR  A=l  TO  24:READ  P4(A) 

:NEXT 

1350  DATA  4,3,44,6,444,16,555,11,66,11,6 

66, 15,33, 11,333, 19,22, 11,222,26, 11,26, U 

1,  lOl 

1360   SONG*="mb  tl50  o3  IB  eg.  116  e  IB 

f  g.  . -eg.  1  16elB-fg.  .  .g  o4ecdccdecdc  " :  RETU 

RN 

Program  5:  Atari  Jackpot    by  Ray  Patrick 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  ttiis 
program  in. 


August  198d     COSfflH^H      93 


HJ 

260 

HE 

265 

J« 

270 

AK 

2*90 

HF 

30  0 

JF 

310 

!F 

320 

DI 

3  30 

FH 

340 

Cft 

350 

III 

360 

EE 

3  70 

MB 

380 

FE 

390 

DJ 

400 

DH  4  10 

EB  420 

Dt 

4  30 

KJ 

440 

HD  4  50 

mi  4  6  0 

DE 

470 

CE 

480 

NL 

4<?0 

CD 

50  0 

kH 

510 

EE 

520 

K£ 

530 

CB 

540 

nil 

550 

m 

560 

HI 

580 

HL  600 

SLOT  MACHINE  ** 


2:?  #6; 
3:  ?  tt6; 


«6; 
It6; 

STEP 


7.  y.V.    7.7.    7.' 
7. 


MONEY 


«6; CHR* ( X ) 


CLR 

DPEN  #1 , 4, 0, "K: 

GOTO  1540 

REM  ****  DRAW 

« 

PRINT  #6; " tCLEAR: " 

POSITION  0,0 

?  #6;"  -***********&!" 

FOR  1  =  1  T  D  10 

NEXT   I 

?  #6: 

POSITION 

POSIT  I DN 

POSITION  3,4:?  #6; 

POSITION  3,7:?  #6; 

POSITION  3,8:?  tt6; 

■C7  spaces:"/." 

P05 I T I DN  3,9: 

POSI T ION  5, B : 

X=l  29 

FOR  1=0  TO  6 

POSITION  4+1. 

X  =  X  +  1 

NEXT  I 

POSITION  13,9 

?  #6;  ■■  **)  " 

FOR  1=1  TO  6 

POSITION  15,2+1 

?  #6:  "7." 

NEXT  I 

POSI T ION  15,2 

?  tt  6  :  "  +  " 

REM  ******  MAIN  LOOP  ****** 

GET  4*1,  A:  IF  AOASC  ^  "  P  "  )   AND  A 

<>ASC("E")  THEN  600 

IF  A=ASC<"E")   THEN  GRAPHICS  0 

;  END 

MONEY=MONEY-0. 25: BANK=BANK+0. 


POSITION  5, S: ?  *6;  " 

{5  SPACESJ" 

POSITION  5,B:?  #6;MDNEY 

FOR  1=15  TO  0  STEP  -1 

SOUND  0, 50, 10, I : SOUND  0,60,10 

,  I 

NEXT  I 

SOUND  0, 0, 0, 0: SOUND  1,0,0,0 

REM  *«*«*««  PULL  HANDLE  ***** 

*« 

FOR  1=0  TO  3 

CHSET* (HANDLE, FILL-1 ) =HANDLE* 

(9. 16) 

POSITION  15,2+1:?  #6;"  " 

POSITION  15,2+1+1 

?  tt  6  ;  ■'  +  " 

CHSET*  (HANDLE, HANDLE  +  S ) =HANDL 

E*  CI  ,  B) 

SOUND  0,100-3*1,2,8 

NEXT  I 

SOUND  0,0,0,0 

FDR  1=4  TD  1  STEP  -1 

CHSET* (HANDLE, FILL-1 ) =HANDLE$ 

(1,8) 

POSITION  15,2+1;?  #6;"7." 

POSITION  15,2+1-1 

?  #  6 ;  "  +  " 

CHSET* (HANDLE, FILL-1  >  =HANDLE* 
(9, 16) 
KKa70  SOUND  0,100-3*1,2,8 


EK  60: 


M  6  1  0 

m  620 

Pi  630 

DN  640 

NL  650 

GF  660 

CF  670 

HI'  680 

LA  700 

AM  720 

AN  730 

OJ  740 

KF  750 

NP  760 

BE  7  70 

KK  780 

C!  790 

£F  800 

K!  810 

NG  820 

10  830 

KK  840 

NP  850 

BE  860 

Atari  Jackpot 


Roy^ 


"Jackpot"  for  the  Atari  is  a  random  slot- 
machine  simulation  that  uses  a  fancy  tech- 
nique to  manipulate  the  image  on  the 
screen.  Strings  are  used  to  hold  the  charac- 
ter images  that  are  placed  on  the  screen.  A 
pointer  to  the  string  is  used  to  specify  which 
character  is  being  displayed  on  the  screen. 
The  character  codes  on  the  screen  are  never 
changed,  but  the  data  that  the  character 
code  references  is  changed  to  simulate  the 
movement.  This  is  done  through  the 
pointer. 

This  technique  allows  BASIC  to  appear 
a  lot  faster  than  it  really  is.  If  you  were  to 
change  the  character  code  on  the  screen  in- 
stead of  changing  the  pointer,  the  simulation 
would  slow  down  considerably  and  the  only 
thing  that  could  speed  it  up  would  be  ma- 
chine language. 

The  game  is  very  easy  to  play.  All  you 
really  have  to  do  is  press  the  P  key  to  play 
and  the  E  key  to  encl.  You  will  begin  each 
game  with  five  dollars.  Each  bet  is  hmited  to 
a  quarter  to  force  you  to  be  thrifty.  You  may 
be  glad  about  this  restriction  after  you  re- 
alize how  difficult  it  is  to  win.  Payouts  are 
based  on  odds. 


CI  880 

m  890 

GS  900 

AB  920 

BEi  9  40 

EB  950 

EK  960 

BN  970 

NL  97f 


FB  980 


NEXT  I 

CHSET* (HANDLE, FILL-1 >=HANDLE* 
(1,8) 

SOUND  0,0,0,0 
REM  *»»«*  SPIN 
t* 

FDR  1=1  TO  3 
FOR  J=l  TO  10 
INDEX ( I ) =INT (RN 
CHSET* ( BEGIN+  I  « 
=  IMAGE*  (  INDEX  (  I 
*8) 
CHSET* (FILL, FIL 


THE  WHEELS  ««» 


J  D  (  0  )  «  5  )  +  1 
iB, BEGIN+I *8+7) 
) *B-7 , INDEX ( I ) 


L  +  7 )  =F  ILL*  (  1  , B 
TEP  -5.5 


PD 
FC 
CB 
JA 
DB 

EO 

ED 


990 
100 
101 
102 
103 

104 

105 


EP  106 

FC  10  7 
10  109 


) 

FDR  R=15  TO  0  S 
SOUND  0, 10, 10, R 
0  NEXT  R 

0  5ETC0L0R  2, INT 
0  SOUND  0,0,0.0 
0  CHSET*  (FILL,  F  II 

16) 
0  NEXT  J 
0  CHSET*  CBEBIN+  I 

) =IMA6E« ( INDEX 

I  )  «8) 
0  NEXT  I 

0  SETCDLOR  2,4,  l! 
0  REM  *«*  CHECK  COMBINATIONS  * 

%% 


(RND (0)  *  16)  ,8 
LL+7) =F ILL* (9, 


*8, BEGIN+I *B+7 
( I )  »8-7,  INDEX  ( 


.0 
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CG  1  1  1  0 

Cf  1  1  2  lil 

ME  1  1  30 

HL  114  0 

BO  115  0 

Jf  1  155 

FH  1  1  6  0 

JJ  1162 
CF-  116  5 

FH  1  1  67 

!i!  1  168 
S'E  1  1S0 

KD  120  0 

Jc  1  2  1  0 

HIi  12  20 

Ft:  1230 

LP  12  4  0 

FH  1  250 
fiE 1280 

DD  13  4  0 
FM  1350 
AF  1360 

Efl 1370 

FF  1380 

Gl  1  390 

10  1400 

HC  1410 
CO  1420 


EL 
JD 


1430 
1440 


Et:  1450 


JK 
K 
NI 


14  60 
1500 
1540 


ID  i; 


IF  INDEX(1>=2  AND  INDEX(2)=2 

AND  INDEX (3)=2  THEN  Xt="  JA 

CK  POT":GOSUB  1200:BDTD  1250 

IF  INDEX(1)=1  AND  INDEX(2>=1 

AND  INDEX(3)=1  THEN  X*="  4 
TO  1   ":GOSUB  1210:GOTO  1250 
IF  INDEX(1)=5  AND  INDEX(2)=5 
AND  INDEX  ■:3>=5  THEN  X*="    0 
OPS..   "iGOSUB  1220:GOTD  1250 
IF  INDEX  (  1  ) =INDEX  (2)   AND  I  ND 
EX  (2)  =  INDEX  (3)   THEN  X*="    2 
TO  I   ":GOSUB  1230:GDTO  1250 
IF  INDEX ( 1 > =INDEX (2)   OR  INDE 
X ( 2) =INDEX (3)   OR  JNDEX(1)=IN 
DEX(3)   THEN  XS="    1   TO  1   "  : G 
DSLIB  1240:GOTa  1250 
IF  BANh<=0  THEN  MS6*= " MACH I N 
E  EMPTY":GOTD  1165 
IF  r'!aNEY  =  0  THEN  MSG«="DUT  OF 

MONEY  ■'  :  GOTO  1  1  65 
GOTO  600 

GRAPHICS  2+ 16:  POSI  T  I  ON  4,4:'^ 
#6; MSG*: POSITION  5,6:?  #6;" 
GAME  OVER"  :  POSITION  6  ,  8  : -^  tt 
6; " TOTAL  t " ; MONEY 

GET  #1,A:IF  A^ASCC"   " )   THEN 

RUN 

GOTO  1 1 67 

REM  *«  ACCOUNTING  SUBROUTINE 

S  ** 

MONEY  =  MDNEY+INT (BANK/2)  :  BANK 

=  BANH:-INT(BANh;/2)  iRETURN 

M0NEY=M0NEY+1 : BANK=BANK-1 : RE 

TURN 

MONEY=MONEV-INT (MONEY/S) : BAN 

K=BANK+INT(MDNEY/2) : RETURN 

MnNEY=MaNEY+0. 5: BANK=BANK-0. 

5: RETURN 

NONEY=MONEY+0. 25: BANK=BANK-0 

. 25: RETURN 

REM 

REM  «{:4  SPACES^SPECIAL  EFFEC 

T5<:4  SPACES]* 

FOR  A=l  TO  2 

POSITION  3,6:7  #6;X* 

SOUND  0, 20, 10, 4: SOUND 

0 

FOR  0=15  TO  4  STEP  -2. 

POSITION  3,6:7  «6;X* 

K=36: FOR  E= 1  TO  3 

SOUND  0, K , a, D: SOUND  0, 

0,  D 

K=15:NEXT  E 

POSITION  3,6:7 


#6; 

NEXT  D 

SOUND  0, 

NEXT  A 

GOTO  600 

REM  INITIALIZATION 

DIM  CHSETt C 1536) , OUTLINE* (7* 

8)  ,HANDLE*(2«8)  5FILL$<2*a)  ,  I 

MAGE$(5«B) , INDEX (3) , X«(9) ,MS 

G* ( 1 4) 

CHSET*(l)=CHF^*t0)  :CHSET*(102 

4)=CHR«(0) :CHSET*(2)=CHSET* 

2+16 

3, 12, 10 

2,4,10 

4,  7,2 

1  ,  10,4 


0,0,0, 


10,  1 


0,0,0: SOUND  1,0,0,0 


OB 

1560 

GRAPHI CS 

IH 

1570 

SETCOLDR 

Fl 

1580 

SETCOLOR 

DP 

159  0 

SETCOLDR 

Ffl 

160  0 

SETCOLDR 

)iD  1610 


LH  1620 
flL 1630 

Fk  164  0 

Oa  1650 

NH  1660 
FH  1670 

BE  168  0 
El  1690 

15  1700 


Ol 
m. 

CD 


17  10 
1  730 
1740 

1  75  0 
17  6  0 

17  7  0 
1780 
1  790 
1800 
1810 
1820 

18  30 
1840 

18  5  0 
1  860 
1870 
1880 
1890 

19  00 
19  10 
19  20 
1  930 
1940 
1950 
1960 
1970 
1980 
1990 

Ei;  200  0 
CF  2010 


CK 
DG 
FJ 
EO 
DM 
fiH 

DP 
EE 
!  J 
CN 
FE 
FF 
HA 
EJ 
B! 
FF 
I'G 
BL 
DO 
ifj 
CF 
FH 


CG  2020 

JK  2030 
CD  2040 
HS  2050 
Fft  2060 
HK  2070 

M  2  08  0 
DD  2090 
ED  2100 
JB  2  1  1  0 
D!  2120 
MB  2130 

IK  2140 

AE  21S0 

DG  2  1  6  0 
JG  2170 


POSITION  6,4:PRINT  #6;"JACKP 

OT" : POSITION  4,6:?  #6; "PLEAS 

E  WAIT" 

M0NEY=5: BANK=10 

A  =  ADR  <CHSET* ) 

START=INT(A/1024) *1024 

IF  START<A  THEN  START=START+ 

1024 

BEGIN=5TART-A+1 

HI=INT (START/256) :LO=START-H 

I  *256 

POKE  203, LO: POKE  204, HI 

FOR  X=0  TO  27:READ  Y:PQKE  15 

36+X,Y:NEXT  X 

DATA  104, 169,0, 

69, 224, 133,206, 

03, 200, 208, 249, 

06, 165, 206, 201 , 

DATA  208, 239, 96 

X=USR ( 1536) 

POKE  756, START/256 

SCRMEM=PEEK (88) +256*PEEK (89) 

FOR  1=1  TO  5*S 

READ  A 

IMAGESd,  I)=CHR$(A) 

NEXT   I 

28,  18,56,  124,  124, 56, 0 
102, 102, 0, 129, 66, 60, 0 
0,24,60, 126, 126,24,0 


133, 

205, 

168. 

1 

177, 

205, 

145, 

2 

230, 

20  4, 

230, 

2 

228 

DATA 
DATA 
DATA 
DATA 
DATA 
REM 


0. 
^■ 

0. 
0, 

OR 


24, 

102 

1  =  1 

TO 


60, 126, 126, 60, : 
, 102, 0, 60,66, i: 

TO  2*8 

7*8 


I )  =CHR*  (A) 

255,255,0, 0. 
24, 24, 24, 24, 
248, 248, 24, : 
31  ,  31  . 24,  24 , 


0 

24,  24 

4,24 

24 


24,31,31,0,0,0 
24, 248, 248, 0,0,0 
31,31,31,31,31,31 

2*8 


I ) =CHR* (A) 


FOR  1=1 

READ  A 

OUTLINE* { I , 

NEXT  I 

DATA  0,0,0, 

DATA  24,24, 

DATA  0,0,0, 

DATA  0,0,0, 

DATA  24,24. 

DATA  24,24, 

DATA  31,31. 

FOR  1=1  TO 

READ  A 

F  I  LL4  ( I 

NEXT  I 

DATA  170,85,170,85,170,85,17 

0,  85 

DATA 

,  170 

FOR  1=1 

READ  A 

HANDLE* ( I 

NEXT  I 

DATA  126,60,60,60,24,24,24,2 

4 

DATA  0,0,0,0,126,60,60,60 

IMABE=BEGIN+8 

aUTLINE=IMAGE+3«8 

HANDLE=DUTLINE+7«a 

FILL=HANDLE+B 

CHSET*(  IMAGE, OUTLINE-l)  =  IMAG 

E« ( 1 , 3*8) 

CHSET* (OUTLINE, HANDLE- 1 ) =OUT 

LINE* 

CHSET* (HANDLE, FILL-1 ) =HANDLE 

* ( 1 , 8) 

CHSET«(FILL,FILL+7)=FILL*(9, 

16) 

GDTD     300  € 


85, 85, 85, 85, 170, 170, 170 


TO     2«a 


I ) =CHR*  (A) 
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The  Complete  Personal 
Accountant  For  The 
Commodore  64 


Richard  DeVore 

The  Complete  Personal  Accoun- 
tant for  the  Commodore  64  is  a 
powerful  personal  finance  pack- 
age with  many  useful  options 
and  features.  It  comes  with  two 
diskettes  and  a  190-page  man- 
ual. The  diskettes  contain  ten 
programs  which  include  all  the 
necessary  functions  and  a  tuto- 
rial to  help  you  get  started.  The 
5y2  X  SVz-inch  bound  manual  is 
thorough,  but  the  binding 
makes  it  a  bit  awkward  to  use 
while  working  at  the  com- 
puter— it  will  not  lie  open. 

Twenty  Dollar  Insurance 

There's  an  unpleasant  surprise 
in  a  letter  that  comes  with  the 
package.  It  reads  as  follows: 
"IMPORTANT:  If  you  wish  to 
obtain  service  from  our  Tech- 
nical Support  Staff  and  be  ad- 
vised of  any  enhancements, 
program  changes,  helpful  hints, 
or  new  products,  the  infor- 
mation on  the  next  page  of  this 
letter  must  be  completed  and  re- 
turned immediately  to  Future- 
house,  Inc.  with  $20."  This 
policy  means  that  you  should 
add  $20  to  the  cost  of  the  pack- 
age when  making  your  value/ 
cost  comparison. 

The  software  package  con- 
sists of  ten  programs  which 
work  together.  They  allow  set- 
ting up  a  chart  of  accounts, 
keeping  track  of  expenditures, 
setting  up  a  budget,  and  trying 
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to  keep  within  it,  in  addition  to 
computing  net  worth  state- 
ments. There  are  payment  and 
appointment  calendar  functions 
as  well  as  graphing  and  mailing 
list  management  programs. 

Lightning  Demo 

The  onscreen  tutorial,  which 
looks  more  like  a  demonstra- 
tion, covers  each  of  the  pro- 
grams of  the  Complete  Personal 
Accountant. 

Starting  with  the  Chart  of 
Accounts,  you  are  shown  what 
the  various  menu  items  allow 
you  to  accomplish.  The  speed  of 
the  self-paced  demonstration  is 
quicker  than  I  was  able  to  keep 
up  with.  In  most  cases,  it  didn't 
give  me  sufficient  time  to  read 
the  complete  screen.  This  offers 
an  impression  of  what  the  pro- 
grams do,  but  doesn't  really 
teach  how  it  is  done.  The  first 
screens  cover  most  of  the  menu 
functions,  but  as  you  progress 
there  is  a  tendency  to  skip  some 
functions. 

The  concept  of  the  tutorials 
is  good,  and  if  you  run  each  one 
several  times  or  have  quicker 
reading  and  retention  than  I, 
you  may  derive  more  benefit 
from  them.  If  Futurehouse  slows 
down  the  screen-flipping  speed 
in  later  releases,  the  tutorial  will 
be  more  effective. 

To  use  the  software  you 
will  need  a  Commodore  64 
computer  with  a  1541  disk  drive 


/^ 


and  several  formatted  disks  on 
which  to  store  your  files.  The 
manual  states  that  a  printer  is 
optional,  but  a  printer  really  is 
almost  mandatory.  Even  the 
manual  recommends  having  a 
printout  of  the  Chart  of  Ac- 
counts available  when  inputting 
checkbook  information.  The 
Chart  of  Accounts  provided 
with  the  program  contains  66 
different  accounts  which  I  found 
extremely  difficult  to  follow  un- 
til I  had  a  printout  to  scan  for 
the  proper  account  number. 

To  use  the  Complete  Per- 
sonal Accountant,  it  is  necessary 
to  set  up  your  work  files  first. 
The  Chart  of  Accounts  is  the 
main  one,  and  the  manual  leads 
you  through  its  initialization  on 
a  step-by-step  basis.  For  your 
convenience  there  is  already  a 
standard  Chart  of  Accounts  set 
up  and  numbered.  Using  this  as 
a  model,  it  was  quite  easy  to 
configure  another  to  suit  my 
needs.  It  is  not  necessary  to  use 
the  chart  provided,  but  it  is  nec- 
essary to  maintain  the  five  ma- 
jor types  of  accounts  within  the 
setup  account  numbers. 

This  is  clearly  shown  in  the 
manual  and  is  not  restrictive  but 
merely  reveals  the  power  of  the 
program.  Thought  should  be 
given  to  the  accounts  and 
subaccounts  that  may  be  most 
needed  or  useful  prior  to  doing 
your  Chart  of  Accounts.  This 
will  allow  you  to  make  the  best 
use  of  the  program.  A  separate 
chart  has  to  be  made  up  for 
each  checking  account  that  you 
are  working  with. 

Bouncing  Checks 

Before  inputting  your  checkbook 
information,  you  should  go 


through  several  months  in  your 
checkbook  to  ascertain  the  num- 
ber of  transactions  required.  The 
program  requires  that  the  maxi- 
mum number  of  records  needed 
for  a  month  be  input  so  that 
disk  space  may  be  allotted.  If 
you  designate  too  few,  it  will  be 
necessary  to  start  over  when  the 
space  is  used  up.  I  found  this  to 
be  awkward,  but  with  the 
proper  forethought  it  should  not 
pose  problems  for  the  user.  The 
checkbook  program  can  handle 
up  to  400  records.  This  should 
be  sufficient  for  personal  ac- 
counts and  for  all  but  a  few 
small  businesses. 

The  program  is  menu  op- 
erated and  reasonably  self- 
explanatory.  It  appears  to  be 
well  error-trapped.  In  working 
with  the  checkbook  mainte- 
nance program,  as  well  as  the 
other  sections,  it  was  not  pos- 
sible to  lose  information  without 
deliberately  going  against  what 
the  manual  stated.  When  1  at- 
tempted to  input  information 
that  was  not  in  the  context  that 
the  screen  prompts  asked  for, 
the  program  simply  requested 
that  I  try  again.  Should  a  data 
entry  error  be  made,  the  records 
can  be  scanned  and  edited. 

While  entering  checks  or 
deposits,  there  is  a  simple 
method  of  spreading  them  over 
several  accounts.  This  is  good 
when  you  use  one  check  to  pay 
a  credit  card  and  there  are  pur- 
chases that  should  be  applied  to 
different  accounts  or  when  a  de- 
posit is  made  that  includes  in- 
come from  several  sources. 

Other  handy  features  of 
this  section  include  the  ability  to 
print  your  checks  from  the  pro- 
gram. Therefore,  the  checks  and 
the  records  have  to  match.  This 
requires  ordering  the  checks 
from  Futurehouse  and  having 
access  to  a  printer,  but  it  may  be 
worth  it  to  you  to  eliminate  ex- 
tra work.  Another  feature  that 
speeds  up  check  information  in- 
put is  the  ability  to  simply  press 
the  RETURN  key  on  a  field 
where  the  information  is  the 


Iftnv  to  imdte  your  oon^uter 
lode  as  smart  as  it  IS. 


Store  it  in  a  beautiful 
piece  of  furniture  specifi- 
cally designed  for  the 
proper  operation  and 
storage  of  your  home 
computer  equipment, 

•  Upper  unit  shelf  adjusts 
to  most  computers.      a^^ 

•  Keyboard  shelf  at  cor- 
rect t\ping  heiglit  with 
pien!\' of  TOfk  surface. 

•  Monitor  placement  at 
proper  height  and  view- 
ing distance  eliminates 
fatigue. 

•  Lower  unit  shelves  for 
storage. 


•  Desk  shelf  swings  up  to 
close  off  unit  when  not 
in  use. 

•  Compact  design:  S4"w  x 
56"h  X  24"d. 

•  indestructible  natural 
oak  or  walnut  wood- 
grain  finish. 

•  Ready  (o  assemble  with 
only  a  screwdriver. 

ONU  $149.00 

To  order  call  loll  free 
1-800-426-5.10] 
In  Washington  call 

(206)  m-nn 

VISA  &  MasterCard 
accepted. 


IHE  flJRNmjRE  BYTE 

P.O.  Box  1757    9Judith  Place    Long\'iew,  WA  98632 


CAU  TOLL  FREE 

800-221-8180 

IN  NEW  YOeK  STATE 
CAU.  12121732-8600 


RATB)  /t  tmSBiVKB  &  mj/mJTY 


wr"*^'^ 


IWORID 


23  PARK  ROW 

NEW  YORK  CITY, 
NEW  YORK 
10038 


u^h  A  Pea 


NEW 
LOW  PRICES 

Gemini  10X $267 

Legend  80  CPS $239 

Legend  100  CPS $259 

12  In.  Amber  Monitor  .  $89 
Concord  Disl<  Drive  . .  $297 

SUCH-A-STEAL 
ON  SOFTWARE! 

Epyx  Summer  Games $25 

SubLogic  Flight  Simulator  II . .  $37 

Screenplay  Pogo  Joe $19 

Access  Beachitiead $23 

Infocom  Sorcerer $33 

Continental  Home  Acct $47 

Timeworks  Word  Writer $39 

Timeworks  Data  Manager  II  .$39 
Commodore  Magic  Desk  ...  $55 
Microware  Clone  Moctiine  . .  $39 

Blue  Sky  Super  Copy $29 

Handle  ColcResult  Adv'd ....  $75 

CALL  FOR  OTHER 

SUCH-A-STEAL  PRICES 

ON  SOFTWARE  AND 

HARDWARE  FOR 
YOUR  COMMODORE 


u<:hAD&a' 


1262?  N.  Tcitum  Blvd. 

Suite  13a 

Ftioonlx.  AZ  S5032 


CALL  TOLL  FREE 
1-800-431-8697 

For  Customer  Seivice 
Call:  602-957-3619 

ORDERING  &  TiUMS-  Send  coshief  check,  money  Ofder. 
persoOQl/compony  checks  oilow  3  weeks  bank 
clearance  VlSVMasteiCard  occepted-  Provide  phone 
number  wifh  ofder.  SHIPPING;  Software  odd  $4.00  for  first 
three  pieces,  add  S1 00  each  additional  piece, 
Hordviore  add  S10-00,  Returns  must  hove  authorization 
numtDer  (coil  <i02.957-3619tof  auttxarizotlon  number).  All 
returned  merchandise  subject  to  restocking  Ise  ond 
must  come  with  all  Ofiglnal  packaging,  fvlo  returns 
allowed  otter  30  doys  from  shipping  Oote,  Prices  are  for 
cash.  VISA  and  MasterCard  odd  3%.  Pnces  subject  to 
cixjnge  wittxsut  notice.  All  prodiKts  subject  to  avaiio- 
billty  from  monufocturers  ond/or  suppiieii  All  pnCes  In 
U.S.  dolk^rs. 


same  as  the  previous  check. 
When  this  is  done,  the  progrann 
automatically  brings  the  infor- 
mation forward  and  inserts  it  for 
you. 

Once  you  have  set  up  the 
Chart  of  Accounts  and  input 
your  checking  information,  the 
program  is  ready  to  work  for 
you.  Using  the  menu-driven  for- 
mat, it  is  quite  easy  to  establish 
a  budget  and  compare  your 
monthly  expenses  to  your  bud- 
geted expenses.  You  may  also 
change  your  budget  at  any  time 
in  order  to  make  it  more  realis- 
tic. With  a  printer  connected, 
the  figures  may  be  printed  out 
for  examination  at  your  leisure. 

The  financial  statement  por- 
tion of  the  program  is  a  method 
of  ascertaining  your  net  worth. 
All  the  input  is  done  through 
menus.  This  would  include  such 
items  as  outstanding  loans, 
home  mortgages,  value  of  in- 
vestments, and  anything  else 
that  pertains  to  value,  whether 
you  own  it  or  owe  it. 

Financial  Records 

Once  the  information  has  been 
entered,  the  program  provides 
both  net  worth  and  the  ratio  of 
income  to  expense.  These  may 
be  printed  out  on  your  screen  or 
on  paper.  By  keeping  the  infor- 
mation updated,  you  will  al- 
ways be  able  to  determine  your 
financial  status.  This  could  be 
quite  useful  should  you  need  to 
take  out  a  loan,  because  all 
banks  like  financial  records  that 
they  can  both  read  and 
understand. 

The  rest  of  the  programs  in- 
cluded in  the  Complete  Personal 
Accountant  are  not  directly  re- 
lated to  your  financial  record 
keeping.  They  allow  you  to  set 
up  a  payment  schedule  that 
may  be  accessed  to  determine 
which  bills  should  be  paid  on  a 
given  date,  or  an  appointment 
calendar  for  keeping  up  with 
your  luncheon  dates  and  when 
to  be  at  the  IRS  office. 

They  even  include  a  pro- 
gram that  allows  graphing  your 


expenses  and  income  along  with 
assets  and  liabilities.  Each  of 
these  can  be  done  singly  or  all 
on  one  graph.  Just  like  other 
portions  of  the  program,  these 
can  be  printed  to  screen  or  pa- 
per. This  function  would  be  use- 
ful if  a  quick  analysis  were 
needed,  and  besides,  the  shock 
value  of  a  graph  of  your  finan- 
cial situation  may  be  what  you 
need  to  adhere  to  a  budget. 

A  more  useful  portion  of 
the  package  is  the  mailing  list 
program.  This  is  saved  on  its 
own  disk  and  can  contain  up  to 
1200  addresses.  There  are  provi- 
sions for  updating  and  sorting. 
Just  like  the  other  programs,  it  is 
all  menu-driven  and  very  easy 
to  use.  Once  this  is  set  up,  the 
information  may  be  retrieved  in 
any  amount  or  order  desired. 
Although  the  manual  does  not 
give  specific  instructions  for  do- 
ing so,  mailing  labels  can  be 
printed. 

All  things  considered,  the 
Complete  Personal  Accountant  is 
a  powerful  and  easy-to-use  set 
of  programs.  If  you  need  a  pro- 
gram to  help  you  keep  your  fi- 
nances straight,  you  should 
consider  this  one. 

Complete  Personal  Accountant 
Fiittirehousc,  Inc. 
P.O.  B<w  M70 
Chapel  Hill,  NC  27514 
$79.95 


Star  League 
Baseball 

Shay  Addams 

Writing  a  sports  simulation  must 
be  really  tough  on  a  program- 
mer because  he  or  she  doesn't 
get  to  invent  the  rules  of  the 
game.  At  the  same  time,  the  po- 
sitions, actions,  and  interactions 
of  the  members  of  the  opposing 
teams  have  to  be  smoothly  co- 
ordinated— according  to  those 
rules — and  convincingly  ani- 
mated. On  top  of  that,  the  pro- 


grammer's  work  is  ultimately 
judged  on  how  effectively  those 
rules  are  implemented  in  the 
game  without  sacrificing 
playability. 

It's  even  possible  to  err  on 
the  side  of  authenticity.  Starhozvl 
Football,  the  previous  effort  from 
the  same  company  that  pro- 
duced this  entry,  was  too  realis- 
tic: Tossing  and  receiving  a  pass 
required  moving  the  receiver  ex- 
actly under  the  flying  ball  and 
pressing  the  fire  button  at  pre- 
cisely the  right  instant — a  near- 
impossible,  frustrating  maneuver 
that  took  even  the  most  adept 
joystick  maestros  a  long  time  to 
master.  Fortunately  for  the 
sports-minded,  the  ball  handling 
techniques  in  Star  League  Base- 
ball are  more  accommodating. 

Grandstand  Viewpoint 

In  fact,  it's  one  of  the  most  en- 
joyable sports  simulations  ever, 
offering  an  unusual  perspective 
on  the  diamond — the  view 
you'd  get  if  you  were  sitting  up 
in  the  grandstands  behind  first 
base.  Joysticks  control  the  action 
with  logically  designed  patterns. 
When  you're  in  the  field,  the 
ball  can  be  thrown  to  any  of  the 
infielders  by  pressing  the  fire 
button  once  and  moving  the 
stick  in  the  direction  of  the 
base's  actual  position.  The  loca- 
tion of  the  man  throwing  the 
ball  is  irrelevant;  this  makes  it 
easy  to  learn  and  execute  the 
moves. 

Hit  the  button  twice  to  re- 
turn the  ball  from  any  player  to 
the  pitcher.  When  he's  got  the 
ball,  the  same  action  puts  him 
in  pitching  mode,  and  he 
crouches  to  look  for  the  catch- 
er's signal.  Then  you  hold  the 
button  down  and  move  the  stick 
in  one  of  eight  directions,  each 
indicating  a  different  type  of 
pitch,  to  send  the  ball  flying 
across  the  plate.  The  pitcher  has 
the  option  of  changing  his  mind 
by  releasing  the  button.  This  en- 
ables him  to  try  to  pick  off  a 
base  runner  who  looks  eager  to 
steal  second  or  third. 
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NEW! 

Universal  Parallel 

Graphics  Interface 


•  Built-in  self-tesi  with  status  report 

•  Optional  RAM  printer  buffer 

•  Provides  virtually  total  emulation  ol  Commodore 
printers  tor  corttpalibility  with  popular  software 

•  ASCII  conversior^,  total  lest.  Emulate  & 
transparent  riHXJe 

•  Fully  intelligent  interface  Itiat  plU9S  inio  standard 
Comnwdore  printer  socket 

•  Ejiclusive  graphic  key-matcft  furnrtjon 

•  Switch  selectable  Commodore  graphw^s  mode  for 
Epson.  StafMicronics,  C.ltoh,  Prowfiler,  Okidata, 
Seikosha,  Banana,  BMC.  Panasonk;. 
Mannesman  Talley  &  others, 

Micrografil  MW-350 S129.00 

MW-3a2C  Printer  Interface  also  available  al  S79.9S 
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Dealer 
inquiries  invited. 


Micio  World  Electionlz,  Inc. 

3333  S.  Wadsworth  Blvd-.  #C105, 
Lakewood,  CO  60227 

(303)  987-9532  or  987-2671 


DATA  TRAC 

BLANK  CASSEHES 


C-05,  C-06,  C-10,  C-12,  C-20,  C-24,  C-3Z 


From  ths  leading  supplier  et  Cmnputer  Cassettes, 
nsw.  longer  lengtli  C-f2's  (S  minutes  per  side)  provide 
tJie  extra  lew  leet  needed  for  sortie  16K  programs. 
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At  the  start  of  the  game, 
you  select  from  three  pitchers, 
each  with  his  own  specialties, 
which  include  sinkers,  curves, 
fast  balls,  and  sliders  of  varying 
speeds  and  height.  You're  better 
off  holding  "Knuckles"  in  the 
bullpen  as  a  relief  pitcher, 
though.  That's  right,  there's  a 
seventh  inning  stretch  that  al- 
lows for  this  option. 


Striking  Out 

To  swing  the  bat,  just  press  the 
fire  button.  In  addition  to  visu- 
alizing the  ball's  trajectory,  it 
helps  if  you  glance  at  its 
shadow.  The  distance  between 
the  two  provides  a  fair  gauge  of 
whether  the  ball's  high,  low,  or 
in  the  strike  zone.  A  batting 
practice  option  is  convenient  for 
honing  this  skill  to  perfection. 


l^/lHEhDl£E  PRICES 


550,555,550-2, 
SKU  Disks  ss/sd  10  pacK 


Trivia  Mania 


C-64 


S229.00 
S329.00 

5299.00 

§289.00 

5269.00 

S3B9.00 

5239.00 

S  75.00 

5  45.00 
call 
S249-00 
S24900 
5289.00 
S299.00 
5369.00 
S449.00 
5369.00 

CatI 

■  "  ■  '  S  16.99 

■  ■  ;    5  17-99 

5  14.99 

S  35.00 

•  ■  ■       5  3500 


VISA 


ORDER  i-wo-aiz-o^i"  .„.„.„,„ 


wmm 


SANVO 

NEC 


fcM^^tek^^ 


i^mii 


You  can  also  bunt,  and  then 
control  the  direction  in  which 
the  ball  travels.  After  each  pitch, 
big  block  letters  display  the  re- 
sults (strike,  out,  ball,  home  run, 
etc.)  at  the  top  of  the  screen. 
When  the  catcher  tosses  the  ball 
back  to  the  pitcher,  this  display 
is  replaced  by  the  number  of 
strikes,  balls  and  outs,  the  cur- 
rent inning,  and  other  vital 
information.  A  scoreboard  also 
appears  between  innings,  post- 
ing the  runs  scored  in  each 
inning. 

The  batter  automatically 
runs  to  first  upon  hitting  a  fair 
ball,  but  you'll  soon  learn  that 
placement — where  the  ball 
lands — makes  a  big  difference 
in  whether  you  get  thrown  out 
or  not.  Infield  hits  generally  re- 
sult in  failure.  Hit  to  the  out- 
field, and  you'll  have  more  time 
to  make  it  to  first;  the  offense 
gets  joystick  control  of  the  out- 
fielder nearest  the  ball,  and 
must  race  after  the  ball.  He  can 
snare  a  fly  ball  by  watching  its 
shadow  to  figure  out  where  it 
will  land. 

Stealing  Bases 

A  runner  won't  advance  to  the 
next  base  unless  you  move  the 
stick  to  the  right.  This  allows 
you  to  lead  off  the  base,  or  even 
steal.  But  watch  out,  because  it's 
easy  to  get  caught  in  a  rundown 
between  a  pair  of  infielders. 
Episodes  like  this  spark  genuine 
excitement  when  you're  playing 
the  computer  or  a  friend,  but 
the  two-player  games  are  defi- 
nitely more  fun.  Strategy  is  as 
important  a  role  as  eye-hand  co- 
ordination, because  it  pays  to 
figure  out  the  pitcher's  pattern. 
If  he  just  tossed  a  ball  right 
down  the  middle  and  the 
count's  now  three  and  two,  will 
he  repeat  himself,  or  try  to  fake 
you  out  with  a  high  slider?  You 
have  only  split  seconds  to  make 
the  same  decisions  you  would 
in  the  batter's  box. 

The  SID  chip  recreates  the 
smack  of  a  ball  connecting  with 


a  piece  of  ash,  or  plopping  into 
a  leather  glove.  Aiid  you'll  hear 
some  familiar  ballpark  sounds 
when  the  bases  are  loaded  or 
one  of  the  heavy  hitters  ap- 
proaches the  plate.  The  crisply 
defined  characters  wear  clearly 
recognizable  hats,  and  are  well 
animated  when  you  put  them 
through  their  paces.  It's  impos- 
sible to  forget  which  player  has 
the  ball,  because  he's  always 
black  instead  of  his  team's  color 
of  white  or  yellow.  Until  you've 
learned  the  ropes,  taking  on  the 
computer  is  only  good  for  hu- 
miliation, but  the  satisfaction  of 
pulling  off  a  successful  double 
play  or  hitting  a  grand  slam 
against  a  human  opponent  is  in- 
finitely more  exhilarating  than 
shooting  down  a  thousand  flying 
saucers  from  the  planet  Mongo. 

Star  League  Baseball 

Gamestar,  Inc. 

1302  State  Street 

Santa  Barbara,  CA  93101 

Disk  or  Tape 

$31.95  Atari;  $29.95  Commodore  64Q 


COMPUTE! 
Subscriber  Services 

Please  help  us  serve  you  better.  If  you 
need  to  contact  us  for  any  of  thie  reasons 
listed  below,  write  to  us  at: 

COMPUTE!  Magazine 

P,0  Box  914 

Farmingdale,  NY  11737 

or  coll  the  Toll  Free  number  listed  below. 

Change  Of  Address.  Please  allow  us 
6-8  weeks  to  effect  ttie  change;  send 
your  current  mailing  label  along  with 
your  new  address. 

Renewal.  Should  you  wish  to  renew  your 
COMPITTEJ  subscription  before  we 
remind  you  to.  send  your  current  moiling 
label  with  payment  or  charge  number 
or  call  the  Toll  Free  number  listed  betow. 

KewSubserlption.  A  oneyear  (12  month] 
US  subscription  to  COMPUTE!  is  $24,00  (2 
years,  $45,00;  3  years,  $65.00,  For  sub- 
scription rates  outside  the  US,  see  staff 
page).  Send  us  your  name  and  address 
or  call  the  Toll  Free  number  listed  below. 
Delivery  Problems,  if  you  receive  dupli- 
cate issues  of  COMPUTE!,  if  you  experi- 
ence late  delivery  or  if  you  have  prob- 
lems with  your  subscription,  piease  call 
the  Toll  Free  number  listed  below, 

COMPUTE! 
800-334-0868 

In  NC  919-275-9809 


DISK  RIOT 


MAXELL 


TDK 


SKC                  SS/SD    14.99/10 

DS/DD    26.99/10 

MD-1    21.99/10 

MD-2    32.99/10 

SS/DD  19,99/10 

VERBATIM  SS/SD    22.99/10 

DS/DD    32.99/19 

DYSAN  (with  FREE  library- case) 

SS/SD    29.99/10 

DS/DD    J9.99/10 


BULK  DISKETTES 

(No  label) 

*70.00/50        $130.00/100 


Disk  Fik  for  SO  51/4'  DisketlK 

12.99 

Library  Case  for  S'A"  Dislicttes 

1.69 


REPLACEMENT  PARTS 

Power  Pack  for  Com  modore  64    39.99 

I/O  Cable  for  Commodore  64  9.99 

Power  Pack  for  Apple  11+    75.99 

Power  Pack  far  Apple  He 76.99 

Power  Pack  for  all  Atari    29.99 

I/O  Cable  fur  all  Atari    19.99 

Cooling  Fan  for  Apple  39,99 

Cooling  Fan  w/Surge  Supressorfor  Apple   .S9.99 
All  Other  Parts  in  Slock  •  Call  for  Details 

JOYSTICKS 

(For  Atari  &  Commodore) 

WICO  Command  Control  20.99/ea 

WIC0  3-Waj    2S.99/ea 

The  Boss     lS.99/ea 

Kraft 12.49/ea 

Atari  Joystick  (Original)    7,99/ ea 

Atari  Paddles  (Original) 12.49/set 

(For  Apple  &  IBM) 

Diamond  Joystick  for  Apple  29.99/ ea 

Diamond  Joystick  for  IBM    34.99/ ei 

Call  for  uor  BtsI  Prkn  on  Compulcn,  Printers,  Monllors, 
SoriwAre,  und  cumplcif  tint  of  acceuories  for  IBM,  Apple, 
Commodore,  Atari,  and  others,  Wrile  for  our  FREE 
CATALOG.  Please  add  i%  for  shipping  i  handiinj  IMin- 
imuinM,00).  NY  residents  must  add  proper shIcs  tax,  Prices 
quoted  include  a  discount  for  cast].  Please  add  3%  for  use  of 
MasterCard  or  Visa,  or5f%  for  American  Eicpre«s, 


CALL  OUR  ORDER  DESK  TOLL-FREE 

1-800-225-5905 

From  NY,  Alaska,  Hawaii  call  212-219-2333 


COMPUTER  CORPORATION 

423  Broadway,  New  York,NY  10013 


COMMODORE  64 
HACKERS  ONLY 

«BOOKWARE  FROM  ABACUS « 


»  «  Unravel  the  mystertes  ot  Ihe 
misunderslood  (loppy  isk 
3(X)+  P8BK  of  tr-tJeptti  intor- 
mation  Sequential,  rdalive 
random  files.  Many  uselul 
utilities.  1541  ROM  nsiing 
fulty  commented,      S19.S5 

•■••  A  machine  language 
reference  guide  specifically  to 
the  Commodore  64.  All  in- 
slrucfipns  fully  explained 
Wiiti  these  complete  prosram 
listings  tor  an  ASSEMBLER, 
DISASSEMBLERS  651 D  Sim 
ulalor  200+  pages  S19,9S 

•  300-I-  page  detailed  guide  lo 
Itieinlernals  of  your  favofile 
compular.  Covers  graptiics. 
synlhesizer,  kernal,  BASIC 
Includes  full  commented 
SOM  listings.  $19.95 


OTHER  TITLES  COMING  SOON! 

ASK  FOR  FREE  CATALOG 

FOR  QUICK  SERVICE 

PHONE  616-241-5510 


Abacus 


Soitwaie 


P.O.  Box  7211  Grand  Rapids,  Ml  49510  Add  $2.00 
poslage  and  handling.  Foreign  add  $4,00,  Michigan 
residence  add  4%.  MC,  VISA,  AMEX  accepted. 


TBASF   DISKETTES 
*1 .75  WITH  LI  BRAR Y  CASEIII I 

DIGITAL  CASSETTES 
C-10for35c(100Lot)!!!! 

FOR  YOUR  COMPUTER 

ALL  DISKS  AND  CASSETTES  ARE 

-100%  ERROR  FREE  IDiskatlas  Fully  Certified)- 
-  LIFETIME  GUARANTEED- 

-CUSTOM  LENCTHS  AVAILABLE- 
COMPUTER  TAPE  PRICES 

25  LOT  100  LOT  1000  LOT 

C-IO  .50/12.50        .35/35,00        .30/300.00 

C-2Q  ,50/13,75        .40/40,00        .35/350,00 

C-30  ,60/15,00        ,45/45,00        ,40/400,00 

BASF  DPS  GRADE  TAPES 

C-10  ,55/13,75  .40/40,00  .35/350.00 
C-20  ,60/15,00  .45/45,00  .40/400.00 
C-30      ,65/16.25   .50/50.00   .45/460.00 


QUALITY  NORELCO  CASSETTE  CASE.. 
AND  LABEL  PRICES 

( WITH  CASSETTE  ORDERS  ONL  Y) 
25-249  Cas«/. 20  Ea.       250/,13Ea,       1000/. 11  Eo. 
Latials-Sh8ei.20     12/.20     120/1,70     1200/14,50 
Tractor  Fofld  Cssssne  Labels  f1  upl  1000/14.50 

-INTRODUCTORY  OFFER- 
BASF  5!4  Single  Si<Je  Double  Dens'ttY  Diskettes 
wrifi...Hub  Ring,  Label.  Jacket,  W/Protoci  Stickers 
-Free  Hard   Library  Case  with   Every   10  Disks- 

10  LOT         20  LOT  50  LOT  100  LOT 

2.00/20.00    1.95/39,00     1,80/90,00     1,75/175,00 

All  Prices  Include  U,S,  S  flipping  &  Handling 

—  Write  Fo[  Volume  Prices— 

-Phone  Orders  Add  S2,50  C.O.D.  Fee- 

I  Canadian  CiiStomers  May  Cell  or 

Write  for  Shipping  Costs) 

Send  Cashier's  Chocks,  Money  Ordeis.  Et  Checks  to: 

CAS8-A-TAPES 

BOX8123-C 

KANSAS  CITY,  MO.  64112 

81M44-4651 


J 
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INSrGHT:  Atari 


Bill  Wilkinson 


The  assembler  listing  which  accompanies  this 
article  is  a  set  of  patches  to  Atari  DOS  2.0s.  If 
you  own  an  Atari  1050  drive,  these  patches  will 
allow  you  to  use  it  in  "enhanced  density"  mode. 
Before  we  get  started  with  the  listing  and  its 
explanation,  though,  let's  look  at  a  new  tidbit. 

Bye-Bye  BASIC 

Are  you  an  800XL  owner?  Do  you  have  an  un- 
protected diskette  which  boots  a  machine  lan- 
guage program  via  an  AUTORUN.SYS  file? 
Would  you  like  to  avoid  pushing  the  OPTION 
button?  Are  you  willing  to  follow  a  few  simple 
steps  to  do  so? 

Your  800XL  enables  and  disables  the  built-in 
BASIC  by  changing  the  contents  of  location 
$D301  (54017),  In  Atari  400s  and  800s,  this  loca- 
tion is  usually  used  to  input  the  state  of  joysticks 
3  and  4,  In  an  800XL,  this  port  controls  various 
system  hardware  configurations. 

For  example,  bit  0  of  $D301  controls 
whether  the  OS  ROM  is  active  or  whether  you 
are  using  the  RAM  underneath  it.  And — guess 
^vhat— bit  1  of  $D301  controls  whether  the  built- 
in  BASIC  is  active  or  not.  Specifically,  the  follow- 
ing table  applies: 

Bit  0=1  OS  ROM  enabled 

0  OS  ROM  disabled,  RAM  enabled 

Bit  1    =1  Atari  BASIC  disabled,  RAM  enabled 

0  Atari  BASIC  enabled 

At  least  one  of  the  other  bits  in  $D301  is 
used  (to  control  whether  or  not  the  diagnostic 
ROM  is  enabled),  but  the  "normal"  values  for 
$D301  are  either  $FF  (BASIC  disabled)  or  $FD 
(BASIC  enabled). 

No  Option  Button 

So  all  we  need  to  do  is  add  a  couple  of  instruc- 
tions to  our  AUTORUN.SYS  file,  to  select  RAM 
instead  of  BASIC,  and  we  will  no  longer  have  to 
hold  down  the  OPTION  button.  For  example,  we 
might  add: 

LDA  #$FF 
STA  $D301 

And,  yet,  there  is  an  easier  way.  Remember, 
Atari  LOAD  files  may  consist  of  multiple  seg- 
ments, each  of  which  starts  with  a  start  address 
and  an  end  address.  The  entire  file  starts  with  a 
pair  of  $FF  bytes,  but  it  doesn't  hurt  if  there  are 
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extra  $FF  header  bytes  in  front  of  other  segments. 

So  consider:  If  we  specify  that  we  have  a 
LOAD  file  which  starts  at  location  $D301  and 
ends  at  location  $D301,  the  DOS  file  loader  will 
try  to  load  (and  thereby  store)  a  single  byte  at 
location  $D301,  This  is  equivalent  to  storing  a 
byte  via  our  program. 

Disabling  BASIC 

So  simply  use  the  following  steps  to  modify  your 
AUTORUN,SYS  to  disable  the  built-in  BASIC: 

Under  Atari  DOS  2,0s: 

1.  Boot  vour  DOS  disk  while  holding  down 
the  OPTION  button. 

2.  Put  the  disk  containing  the 
AUTORUN.SYS  you  want  to  modify  into 
drive  1. 

3.  Use  the  E  option  from  the  DOS  menu. 
When  prompted  for  old  and  new 
filenames,  respond: 
D:AUTORUN.SYS,AUTORUN,OLD 

4.  Use  the  K  option  from  the  DOS  menu. 
When  prompted  for  filename,  starting  ad- 
dress, etc.,  respond: 
D:AUTORUN.SYS,D301,D301 

5.  Use  the  C  option  from  the  DOS  menu. 
When  prompted  for  from  and  to 
filenames,  respond: 
D:AUTORUN.OLD,AUTORUN.SYS/A 

Under  OS/A+  or  DOS  XL: 

1.  Boot  your  DOS  disk  while  holding  down 
the  OPTION  button.  If  the  DOS  XL  menu 
appears,  use  the  Q  option. 

2.  Put  the  disk  containing  the 
AUTORUN.SYS  you  want  to  modify  into 
drive  1. 

3.  Type  the  command: 

RENAME  AUTORUN.SYS  AUTORUN.OLD 

4.  Type  the  command: 

SAVE  AUTORUN.SYS  D301  D301 

5.  Type  the  command: 

COPY      AF  AUTORUN.OLD  AUTORUN.SYS 

And  that's  it.  Your  AUTORUN.SYS  file 
should  now  be  ready  to  use. 


A  ATARI 

ATAB I  IS  a  I'afJematk  o(  ATARI.  INC 

Atari  800XL Call 

1010  Program  Recorder 77.00 

1027  Letter  Quality  Printer  . . .  Call 

1050  Disk  Drive Call 

Atari  850  Interface Gall 

Atari  Light  Pen 82.95 

Numerical  Keypad 104.95 


INTERFACES 

Aid  Interfast  I ,  . 
Ape  Face    


Call 
Call 


R. Verier  Modem 
Adaptor 39.95 


DISK  DRIVES 

Indus  GT Call 

Percom Call 


Rana  1000 Call 

Trak Call 


MOSAIC 

48K  RAM 94.00 

64K  RAM/400.  149,00 
64K  RAM/800  + 
Cable  Kit  #1  .  169.00 
Handyman -D  . .  23.95 
Cable  Kil  #2  .  .  .  14.95 
SuperdriveO  .  .  23.95 


MODEMS 

Hayes  Smarl 

Modem  300 Call 

Mark  SI 79.00 

Mark  Vll/Auto  Ans/ 

AuloDial  .....  Call 
Mark  Xlin  200 

Baud Call 

MPP1000C  ....  Call 

Novalion Call 

R-Verter  Modem 

Adaptor 39.95 


MONITORS 

AMDEK  Color  1  +  Call 
USI  52"  Amber.  149.00 
USI  12"  Green  .  139.00 
USI  14"  Color.  .269.00 
BMC  12"  Color.  229.00 
BMC  12"  Amber  99,00 
BMC  12"  Green  .95.00 
Phillips  12"  Green 

w/Sound 129.00 

Phillips  12"  Amber 

w/Sound 139.00 


Triangle  Replacement 
Keyboard  lor  400  54.95 


Alien  Voice 

Box  II 99.95 


COMMODORE64 

GBM   64. Call 

SX-64   Portable Call 

1541  Disk  Drive Call 

1526  Printer 279.00 

1530  Datasette 66.00 

1702  Monitor Call 

1650  AD/AA  Modem 89.00 

RS  232  Interface Call 


Expansion  Memory 
foreOOXL Call 


SUPER  PRINTER  PACKAGES 

Gemini  10X  and  Apetace 339.00 

Prowriter  and  Apeface 409.00 

Provi^riter  +  Aid   Interf .  +  Cable . .  485.00 


Gemini  10X  and  Cardco  +  G.  . .  .349.00 
Prowriter  and  Cardco  +  G 419.00 

/to  afld;!iofui  sha  cnarpes  on  printer  Dackag«  in  Contir>enlai  USA 


Call  for  prices  on  joysticks,  printer  cables,  blank  Tloppy  aisks,  aooks 


TOUCH  TABLETS 

Koala  Pad-D  . . .  69.95 


Koala  Pad-Carl  .  74.95 


ATARI 


S      O      F      T      W      ARE 


ATARI 

Caverns  ol  Mars -Can 
Donkey  Kong-Can 
Ocnkey  Kong  Jr  -Cart 
Eastern  rroniCan 
Jousl-Carl 
Jungle  Hunt -Cart 
MarJD  Bros.  -C^rt 
Ms   Pac- Man -Cart... 
Pengo-Can        ,     .. 
Pple  Pnsiiion'Carl 
Otx  Cfrt 

Realspas  Fooltull-Can 
RolMlron  J084Can 
Star  Raideis-Cart 
Tennis  Can 
Alariwriter  ■  Ca't 
Fa'^iiy  Finances-D 
home  Fiitng  Manager-D 
Mailing  Lisl-T 
Syncalc-0 
SynllleO 
Synirena-D 
Logo  -Can 

My  Firsl  Alphabet -D 
Aianiiiusic  lot  II- D 
Conwersalional  Lang  -I 
Final  Legacy -Cart 
BallblazerCan  . 

Plato-Cart 

Paint  -  D  

MciDsoli  Basic  11 -Cart 
Alan  Macro-AssemOler- 
Can 

Man  Basic-Cart 
Assemoler  EOiIor-Cart 
BftODERBUND 
ftE-0 

Arcade  Machine -0  . . 
Bank  Slreel  Wriler-D  . 
ChoplillEr  -  D 

Drol  D 

GoiriDall-D 
Loderunnef-D 
Mask  o(  the  Sun  ■  0 
Opetalion  Whirlwind -D 
DATASQFT 
Basi:  Compiler -D 
Bruce  Lee-D/T  . 
Dallas-D 
healficiilf-D/T 
Letter  Wizard 
Miciopainisr-D 
Money  Wizard 


32.95 
37,95 
39.95 
3295 
39.96 
35,95 
35-95 
39,95 
35.95 
39,96 
3J.95 
35,95 
35  95 
32.95 
35  95 
7-1.95 
37.95 
3?.9b 
19.95 
74.95 
74.95 
74.95 
79.95 
26.95 
29.95 
44.95 
.  Call 
Catt 
. ,  Call 
33.95 
67  95 

67  95 
41,95 
46,95 

23.96 
■11,95 
49.95 
23,95 
23.95 
20,95 
23.95 
27,95 
27.95 

55-95 
23.95 
23.95 
23.95 
-  Call 
23,95 
Call 


DATASOFT  (cent  d  I 

NiDPier-U/l  20  95 

Spell  Wizard  ■  D  3495 

Teletalk-0           .  34.95 

ZaxKon-D/T  27  95 
EPYX 

Dragons/ Pern -D/T  27.95 

Fun  With  Art -Carl  27  95 
Eale*av  to  Apshai  -  Can  27  95 

Jumpman  Jr.-Can  27,95 

Jumpman-D/T  27  95 

Rtstop  Can       -  27.95 

Puzzlemanta  Call 

Sommei  Games  Call 

Temple  olApshai-D/T  27.95 
INFOCOM 

Deaaline-D  34  95 

Encnanler-D  34  95 

Inlidel-D  34  95 

Pianetlail-D  34.96 

Sorcerer-D  34.95 

Slaicrnss-D  27  95 

Suspended  D  34.95 

Witness -D  34-95 

Zork  I.  Il.or  MI-0  27.95 

Sea  Stalker -D  34  96 
MISCELLANEOUS  ATAHI 

Omnimon  82.95 

Pittall-Carl  3195 

River  Raid -Carl  31.95 

OiskeyD  34  95 

Ultra  Disassembler- D  34  95 

Zombies -D/T  23  95 

Cndewril«-D  69-95 
Star  League  Baseball-D/T  22.95 

Star  Bowl  Foolhali-Q/T  22  95 
Oealh  in  Ihe  Caribbean  D ,  27.95 

OinoEggs-D  27-95 

The  Heist -D  23,95 

Gyruss-Carl  34.96 

James  Bond-Can  34.95 

Popeye-Cart  34  95 

Q- Bert   Carl  34,95 

Star  Wars  Cart  34  96 

Return  ol  Heracles  ■  D  26  50 

Master  Type- D/ Cart  27  95 

Songwrilef-D  27  95 

Flight  Simulator  II- D  3795 

Chatterbee-D  27,95 

S.AM  -D  41.95 

Castle  Wolftnslein  ■  D  2095 

CompuServe  Starter  Kit  34-95 

Home  Accounlanl-D  52.95 

Ken  Uston's  B^ck|ack-D  i9.95 


MISC.  ATARI  (conid  1 

Megalont-D  19.95 
Monkey  Wrench  II -Can 49.95 

Movie  Maker -D  41.95 

PogoJoe-D  20.95 

Spelunkei'D  27.95 

Ultima  lll-D  41.95 

Jupiter  Mission- D  .  34.95 

DreaOnaughl  Factor-Cart  31-95 
Keystone  Kapers  Cart     ,31,3b 

An!ica4-D  37  95 

Boulder  Dash-D/T  20.95 

Scraper  Caper  Can  34  95 

Miner  2049'er-C3ri  34,95 

Beachead-D/T  23  95 
OPTIMIZED  SYSTEMS 

Action -Cart  74  95 

Basic  XL-Cart  74  95 

MAC/65-Caft  74.96 

DOSXL-D  27.95 

Action  Aid -0  27-95 
SIERRA  ON-LINE 

Agualron-D  20-95 

Dark  Crystal- D  27.95 

Homeword  Speller -D  34.96 

Homeword-D  49.95 

Oil's  Well -D  23-95 

Prisoner -D  23.95 

QuBSI  lor  Tires -D  23.95 

yitimall-D  41.95 

Ultima  1-D  23.95 

Wiztype-D  23,95 
SSI 

Carrier  Force  ■  D  41.95 

Combat  Leader -0/1  ,  27  95 

Cosmic  Balance  11-D  27.95 

Cosmic  Balance-0  27.95 

Broadsides -D  27.96 

War  in  Russia- D 55.95 

50  Mission  Crush-0.  27.95 

Questran -D  34.95 

Rails  West -D  27.95 


C  0   M  M   0 


ACCESS 

Neulral  Zone-D/T  23  95 

Sprilemaster-D/T  23  95 

BeachheadD/T  2395 

Master  Composer -D  27  95 
BAnERIES  INCLUDED 

Consullani-D  69  95 

FSpercllpw/Spellpak-D  84.95 

Super  Busscard  II Call 

Home  Invenlory-D  23.95 

ftecipe-0  23  95 

Audio/Video  Cat-D  23.95 

Mail  List-D  23-95 

Stamps -D  23  95 
CARDCD 

Cardprini/B  47.95 

Cardco+G  69  95 

Cardboard/5  59  95 

Cardkey  ,  ,        ,  39.95 

Cassette  Recorder  47,95 

Printer  Utilily-D/T  19,95 

Write  Nowlian  34  95 

Mail  Now-0    , ,  29  95 
COMMODORE 

Program  Rot,  Guide  19  95 

Assembler-D  39-95 
Easy  Finance  I. II. 

II1,IV-D 19.95 

Easy  Calc-0  64.95 

Easy  Mail-0  19-95 

Easy  Script -D  44-95 

EasySpell-D  19-95 

Logo-D  57  95 

The  Manager -D  39  95 

General  Ledger-D  39,95 

Accts.  Rec  -D  39.95 

Accis   Pay  -0  39,95 

Magic  Desk-D 52.95 

Zork  I,  llor  lll-O  32,95 

Suspended -D  32-95 

Slarcross-D  32.95 

Deadline-D  32.95 

Soccer -Cart  29  95 


To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  Info,  Order 
Inquiries,  or  for  Wise.  Orders  ■ 

414-351-2007 


PRINTERS 

Alphacom  40C  Epson Call 

w/lnterface.  . ,  ,99.95  Gemini  1 0X. ,  .269.00 

Alphacom  60C  Okidata Call 

w/lnterface . .  .  189.95  Prowriter  1 Call 

Axiom  AT-550  ,  .  329.00  Riteman Call 

ind  other  computer  accessories.    

D  OR   E64     SOFTWARE 

HANDIC  MISC.  CDMM.  icont'd  I 

B4  Fonh-Can  29  95  Basic  Building  Biks-0    54  95 

64  Gral-Can  23,96  Critical  Mass- D  27  96 

Stat54-Cart  23.95  Rescue  Squad- 0  20.95 

Calc  Result  Easy -Cart    34,95  Super  Text  Word  Pro.-D,  69.95 

Cak:  Result  Advanced -D    74  95  Beyond  Wollenstein-D    23.95 

Calc  Resuti  Adv.-Can       69.95  Sam-D 4195 

Trie  Diary- Carl  23,96  Ctiatlerbee-D 27.95 

The  Tool-Can  29.95  SPINNAKER 

INSTA  ICIMHAHON)  Adventure  Creator-Cart-  -   27.95 

insta-Writer-Carl  39  95  Aerobics-O      30.95 

Insta-Mail-D   ,  24  96  Aegean  Voyage-Cart-     27  95 

(nsta-Flle-D  - ,  49  95  Win  Ihe  Color  Caves-C    27  95 

Management  Combo      64,95  Alphabet  Zoo-Carl         23-95 

Insta-Caic-Can/D         31-95  Bubble  Burst-Can         27  95 

Insla-Graph-D  24.95  Cosmic  Llle-Cart  23  95 

Insia-Vesior-D  31  95  Delta  Drawing-Can        27  95 

Insla-Speed-D-   .        99.95  Facemaher-Can  23  95 

Insia  Sctied-Cart/0       49.95  Fraction  fever-Can  .      23.95 

Insta-Music-Cart/D      79-96  Grandma's  House-D      23  95 

Invest  Combo  74.95  JuketionCan         .       27-96 

MISC.  COMMODORE  Kids  on  Keys-Can  .       23,95 

Ken  Ustons  Kidwriler-0  23-95 

Blackjack. D 49,95  Kindercomp-Cart  20.95 

Quick  BrtMnFox-D/Carl,.  34.95  K"       ?o^„     „        illi 

Ullima  lll-D  41  95  Rtiymes/ Riddles -D        20.95 

Fligm  Simulator  ll-D      37  96  Search/ 

Night  Mission/  Amaiing  Thmg-D ...   27.95 

Pinball-D/T 20  95  Snooper  #1-D  30-95 

Prallcaic  PS-D 59  95  Snooper  #2-D  30.95 

M-File-D 64-95  SlOry  Machine-Can        27  95 

Wort  Pro  3■^/Spe«■D       74.95  \"'"^'°    ^    .^  Hit 

Home  Accouniani-D       52  95  UP  Fo' Grads-Cart         27  95 

Step  ByStep-D/T         44  96  SYHAPSE 

Barron's  Sal. -D  67.95  Blue  Max-D/T  23  95 

Bristles-D/T-  20  95  Drelbs-a/T  23,96 

Telestar64-Can,         ,37  95  Fon  Apocaiypse-D/T     23-95 

Star  League  Necromancer-D/T         23  95 

Baseball-D/T    ,  20  95  New  York  Cily-D/T .     23.96 

Caslle  Woltenstein-D      20,95  Pharoah's  Curse-0/T.   23,95 

Mastertype-D/Can        27  95  Protector  ll-D/T  23,95 

Vic  Switch  124  95  Quasimodo-D/T  23,95 

First  Class  Mail- D         34  95  Rainbow  Walker-D/T     23  95 

Aziec-D  27,95  Rela«  Siress 

Miner  2C4ger-Cart        27  95  Reduction  Sys  6495 

Sea  Dragon-D/T  23  95  Sfiamus  Case  (1-D/T     23.95 

Diskey  D        ..    ,        34  95  Shamus-D/T       .         23  95 

Hodge  ?(idge-D/T.--    19-95  Siam-Ball-O/T  23-95 

Snip  Poker-0  -  -  -  23.95  Sumivor-D/T  23,95 

Mr.  Robot-D  23-95  Zaixon-Q/T  27-95 

Paint  Magic-D  34  95  Zepplin-D/T  23  95 

Pooyan-0/T  20  95  „ -;:r~, ?-s ;. 

Astro  ChasB-O/T         20  96  D-Dlsk      T-Cassetto 
FiipFiop-D/T.            20  95  Cart-Carlfidge 
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ORDERING  INFORMATION,  Please  specify  system.  For  last  delivery  send  cashier's  check,  rnoney  order  or  direct  bank  translers.  Personal 
and  c;orTip3ny  checks  allow  2  weeks  to  clear.  Charges  (or  COD  are  $3-(X)-  School  Purctiase  Orders  welcome.  In  CONTINENTAL  USA  in- 
clude $3.00  stripping  per  sottware  order.  Include  3%  shipping  on  all  Hardware  orders,  minimum  $3-00.  Mastercard  &  Visa  please  include 
card  H  and  expiration  dale.  VII  residents  please  add  5%  sales  lax.  HI,  AK.  FPO,  APO.  Canadian  orders  -  add  5%  shipping,  minimum  $5  00 
All  other  foreign  orders,  please  add  15%  shipping,  minimum  SIOOO,  All  goods  are  new  and  include  factory  warranty.  Due  !o  our  low  prices 
■  ff!??T^'^  *'"^''  *"  '^^*^'^''^^  returns  must  have  a  return  authorization  number.  Please  call  414-351 -20Q7  to  obtain  an  RA#  or  your  return 
will  NOT  be  accepted  tor  repiaeemenl  or  repair,  Phces  and  availability  are  subject  to  change  without  notice. 
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ORDER  LINES  OPEN 

Mon-Fri         II  AM  ■  7  PM  CST 
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Check  The  Pointers 

Caution!  Even  though  the  built-in  BASIC  is  now 
disabled,  HIMEM  (the  contents  of  location  $2E5) 
and  RAMTOP  (contents  of  location  $6A)  will  still 
reflect  the  40K  byte  configuration  where  BASIC 
is  present.  If  your  program  pays  attention  to  one 
or  both  of  these  two  values,  it  would  also  be 
worth  performing  the  following  steps: 

1.  Change  RAMTOP  to  reflect  the  full  48K 
bytes. 

2.  Close  channel  zero  (the  screen  editor). 

3.  Open  channel  zero  for  the  E:  device. 

These  steps  will  insure  that  all  48K  bytes  of 
accessible  RAM  are  in  use  by  your  program.  I 
won't  go  into  how  to  accomplish  these  here  and 
now.  Write  if  you  would  like  me  to  show  how  to 
code  those  steps  in  machine  language. 

Coming  Attractions 

A  project  related  to  this,  which  I  hope  to  im- 
plement in  an  upcoming  column,  would  be  an 
"M:"  device  driver.  Once  upon  a  lifetime  ago,  in 
this  column,  I  presented  such  a  driver.  It  used 
the  "excess"  memory  (between  the  top  of  a 
BASIC  program  and  the  bottom  of  the  graphics 
screen)  as  a  pseudodevice. 

I  would  like  to  do  the  same  thing  again,  but 
this  time  use  the  extra  memory  under  the  OS 
ROMs  or  under  the  built-in  BASIC  as  a  superfast 
RAM  disk.  Stay  tuned  for  further  developments. 

DOS  2.0s  For  Enhanced  Density 
1050s 

First,  I  would  like  to  point  out  that  the  task  of 
reconflguring  Atari  DOS  2.0s  for  an  enhanced 
density  1050  is  difficult,  I  would  also  like  to  note 
that  it  is  extremely  difficult  (if  not  impossible)  to 
finish  the  task  if  you  have  only  one  drive. 

So,  may  I  suggest  that  you  cooperate  with  a 
friend  and  his  drive  if  you  have  only  one  of  your 
own.  If  your  friend's  drive  is  an  810  or  a  non- 
Atari  drive,  it  should  be  set  up  as  drive  1.  Your 
1050  should  be  set  up  as  drive  2. 

Also,  you  should  use  an  assembler  capable 
of  placing  its  object  code  directly  in  memory,  (For 
example,  AMAC — the  Atari  Macro  Assembler — 
cannot  be  used  for  this  job.)  This  is  because  load- 
ing the  DOS-modifier  code  from  a  disk  will  use 
DOS  itself,  and  you  are  almost  guaranteed  to  run 
into  conflicts.  Atari's  Assembler  Editor  cartridge, 
the  old  OSS  EASMD,  OSS's  MAC/65,  and  (I  be- 
lieve) SYNASSEMBLER  will  all  work  properly 
(though  the  syntax  for  SYNASSEMBLER  may 
vary  a  bit  from  what  I  show  here). 

You  should  boot  a  normal  Atari  DOS  2.0s 
disk,  making  sure  that  you  can  access  a  normal 
single  diskette  in  drive  2  (at  least  to  the  point  of 
making  sure  you  can  list  its  directory).  Be  sure 
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you  have  at  least  two  (2)  blank  or  junk  disks 
ready  and  at  hand.  Then  begin. 

Patching  DOS 

Type  in  the  program,  as  shown  herein.  You  may 
use  automatic  line  numbering  if  you  wish.  Type 
in  just  the  part  from  the  right  of  the  line  num- 
bers. LIST  or  SAVE  the  source  code  to  disk  and 
then  assemble  it.  Check  it  against  the  listing 
given  here.  Do  not  proceed  until  you  are  reason- 
ably sure  that  you  have  typed  it  in  and  assem- 
bled it  correctly. 

Then  change  line  1000  to  read: 

1000    .OPT  NOLIST,OBJ 

and  assemble  the  code  once  more, 

Voila\  DOS  has  been  patched! 

But,  because  DOS's  DRVTBL  has  changed 
format,  you  must  now  hit  the  SYSTEM  RESET 
key.  Then  give  the  DOS  command  from  your 
assembler.  Assuming  that  you  get  to  the  DOS 
menu  (and  if  you  don't,  you  did  something 
wrong),  it  would  probably  be  a  good  idea  to  im- 
mediately format  (menu  option  I)  a  blank  disk  in 
drive  1  and  write  the  DOS  files  (option  H). 

Implementing  Enhanced  Density 

Now  comes  the  tricky  part.  The  way  we  have 
patched  DOS  2.0s,  DOS  automatically  checks 
each  drive  at  power-on  (or  SYSTEM  RESET)  time 
to  find  its  current  configuration  (single  density, 
double  density,  or  enhanced  density).  But  the 
1050  assumes  it  is  in  single-density  mode  unless 
you  have  inserted  an  enhanced-density  diskette. 
So,  up  until  now,  DOS  thinks  it  is  working  with 
all  single-density  disk  drives.  How  do  we  change 
its  mind? 

The  easy  way:  Turn  your  power  off,  put  your 
BASIC  (or  BASIC  XL)  cartridge  into  your  ma- 
chine, and  turn  the  power  back  on,  thus  booting 
the  disk  we  just  formatted  and  wrote  DOS  files 
to.  Insert  a  blank  disk  into  the  second  drive  (your 
1050).  From  BASIC,  give  the  following  command: 

XIO  254,#1,0,34,"D2:" 

If  you  are  a  faithful  reader,  you  will  rec- 
ognize that  as  the  format  command,  given  from 
BASIC.  But  the  34  in  the  next-to-last  position  is 
new!  That's  right.  As  we  have  patched  DOS,  a 
nonzero  value  given  in  AUX2  is  assumed  to  be 
the  format  command  value  to  be  sent  to  the  disk 
drive.  The  only  legal  values  here  are  33  (for  single 
density,  a  la  810  drives)  and  34  (for  1050  en- 
hanced density)! 

Now  drive  2  contains  what  we  hope  is  an 
enhanced-density  diskette.  Once  more,  hit  SYS- 
TEM RESET  so  that  DOS  will  recognize  the  new 
density.  Then  give  the  DOS  command  from 
BASIC.  Once  in  DOS,  use  the  H  menu  option  to 
write  the  DOS  files  to  drive  2. 


If  you  have  performed  all  these  steps 
correctly,  you  should  now  have  a  bootable 
enhanced-density  diskette  in  drive  2.  You  might 
wish  to  change  your  1050  back  to  being  drive  1 
and  try  to  boot  from  it  with  this  new  diskette. 

Simpler  Commands 

The  beauty  of  this  system  is  that,  once  you  have 
created  this  one  enhanced-density  master,  you 
may  make  new  enhanced-density  masters  by  using 
just  the  I  and  H  commands  from  the  DOS'menu. 

There  is,  however,  one  potential  problem. 
How  do  you  copy  files  from  an  old  single-density 
disk  to  a  new  enhanced-density  disk?  For  now, 
the  only  practical  way  is  to  borrow  a  second 
drive  and  have  one  of  each  type  of  disk  on  your 
system.  There  may  be  ways  around  even  this 
problem.  We'll  see. 

Patching  Other  DOS  Versions 

The  patch  program  given  here  will  also  work  on 
all  versions  of  OS/A-h  and  DOS  XL  from  1.2  to 
2.3  (except  that  it  will  not  patch  the  DOSXL.SYS 
versions). 

The  procedures  are  almost  the  same,  but  it  is 
significantly  easier  to  use  a  single  drive.  Try  the 
following  if  you  have  only  a  single  disk,  on 
which  you  boot  OS/A+  or  DOS  XL: 


1.  Type  in,  save,  and  check  out  the  patch 
listing  as  described  above. 

2.  Hit  SYSTEM  RESET.  If  you  end  up  back 
in  an  assembler  cartridge,  type  a  DOS 
command. 

3.  From  the  Dl;  prompt,  use  an  INIT  com- 
mand. Or  use  the  I  option  from  the  DOS 
XL  menu. 

4.  Use  Option  1  (on  a  blank  disk)  or  3  (on  an 
existing  disk)  of  INIT.  Use  Option  4  to  re- 
turn to  DOS. 

5.  Insert  a  BASIC  cartridge.  Reboot  from  the 
disk  you  just  INlTed. 

6.  Type  the  following  BASIC  command: 
XIO  254,#1,0,34,"D1:" 

7.  Hit  SYSTEM  RESET  after  the  formatting  is 
finished.  If  you  are  not  then  in  the  BASIC 
cartridge,  use  the  CAR  command. 

8.  Type  the  following  BASIC  command  line: 
OPEN  #1,8,0, "Dl;DOS.SYS"  :  CLOSE  #1 

The  reason  the  procedure  works  on  a  single 
drive  is  that  neither  OS/A+  nor  DOS  XL  re- 
quires the  DUP.SYS  file  of  Atari  DOS.  The  disk 
initialization  can  thus  be  performed  entirely  from 
BASIC. 


Patches  To  Atari 

0000 


=1311 
=1301 
=0048 
=11DB 
=  12FE 
=0021 
=0302 
=0045 
=0A4A 
=0A4C 
=0D18 
=0BD6 
=1372 
=034B 
=1382 


DOS  2.0s 

1000 
1010 

1030 
1040 
1050 
1060 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1340 


.OPT  LIST, NO  OBJ 
;;;;;;  r  r  ;  r  ?;;?  r  ;;?;;;;;;;;  r  ;;;;;;;;;;  r  ,•;;;;;;;,•;  ; 
r  PATCHES  TO  ATARI  DOS  2 . 0S 

;  THESE  PATCHES  ALLOW  AN  ATARI  1050  DRIVE 
;    TO  UTILIZE  ENHANCED  DENSITY  UNDER 

DOS  2.0S,  TO  A  MAXIMUM  OF  965  FREE  SECTORS 

tit    t    t    /   r    t    riittittJ7iiti7ti77*t7tr7ftttt/t**i77)ir* 

r 

;    EQUATES  —  TAKEN  FROM  THE  LISTING  OF 
ATARI  DOS  AS  PUBLISHED  IN 

"INSIDE  ATARI  DOS" 
FROM  COMPUTE  1  BOOKS 

DRVTBL  =  $1311 
CURFCB  =  $1301 
ZSBA  =   $48 
DERRl  =  $HDB 
DRVTYP  =  $12FE 
DCBCFD  =  ' ! 
DCBCMD  =  $0302 
ZDRVA  =  $45 
NOBURST  =  $0A4A 
WRBUR  =  $0A4C 
XFORMAT  =  $0D18 
XFV  =    $0BD6 
Z    =    $1372 
ICAUX2  =  $034B 
FCBOTC  =  $1382 


I     t     I     t     I     t     t 


ttttttltttlflttittiittitttiiittttltttti 


The  rest  of  this  listing  will  appear  in  "Insight:  Atari"  next  month. 
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ML  Tracer 


Thomas  G,  Gordon 


Ailempfing  to  debug  a  machine  language  program 
can  sometimes  he  a  trying  experience,  especially 
when  the  program  always  seems  to  exit  into  the 
twilight  zone.  And  frying  to  study  a  program  in 
ROM.  can  be  just  as  frustrating,  even  with  a 
disassembler  (where  do  branch  instructions  go?). 
Here's  an  excellent  programming  utility:  a  single- 
stepper  for  Atari,  Apple,  and  all  Commodore 
computers. 


Anyone  who  has  ever  worked  with  machine  lan- 
guage knows  how  helpful  it  can  be  to  be  able  to 
single-step  through  a  program.  "ML  Tracer"  al- 
lows you  to  step  through  a  machine  language 
routine  one  event  at  a  time  and  print  out  the 
contents  of  all  of  the  microprocessor  registers 
after  each  instruction.  It  also  allows  you  to  follow 
all  branches,  jumps,  and  returns.  The  program 
will  display  the  address,  opcode,  mnemonic,  and 
operand  of  each  instruction. 

Three  versions  are  included.  Program  1  runs 
on  all  Commodore  computers  (for  the  VIC,  8K  or 
more  expansion  memory  is  required).  Program  2, 
for  the  Apple  II,  is  only  slightly  different  from 
the  Commodore  version.  The  Atari  version,  Pro- 
gram 3,  has  more  substantial  changes,  hut  its 
structure  is  still  quite  similar.  Since  all  the  ver- 
sions have  the  same  line  numbers,  references  in 
this  article  apply  to  all  versions  unless  otherwise 
stated. 

When  Tracer  is  run,  there  will  be  a  ten- 
second  delay  while  the  DATA  statements  are 
read.  You'll  then  be  asked  for  the  hex  address  of 
the  ML  program  you  wish  to  examine.  You  can 
change  the  contents  of  any  register,  before  each 
instruction  is  executed.  Press  a  for  the  accu- 
mulator, X  for  the  x  register,  y  for  the  y  register,  s 
for  the  stack  pointer,  p  for  the  processor  status, 
or  i  for  the  instruction  pointer  (program  counter). 
On  the  Atari,  also  press  RETURN.  When  you're 
through  loading  registers,  press  RETURN  once 
more  to  execute  the  next  instruction. 
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Hexadecimal  numbers  are  used  for  all  input 
and  output.  If  you  enter  an  address  as  a  one-, 
two-,  or  three-digit  hexadecimal  number,  zeros 
will  be  added  on  the  left  to  make  a  four-digit 
number.  If  too  many  digits  are  entered,  the 
rightmost  four  digits  will  be  used.  The  same  ap- 
plies to  changing  the  value  in  a  register.  The 
number  that  you  enter  will  be  converted  to  a 
two-digit  hexadecimal  number  using  the  same 
rules. 

The  Execution  Subroutine 

The  program  is  written  mostly  in  BASIC,  but 
contains  two  machine  language  subroutines.  The 
first,  the  initialization  subroutine,  copies  the  low- 
est three  pages  (768  bytes)  of  RAM,  which  are 
used  by  BASIC,  to  a  location  above  the  BASIC 
program.  The  other,  the  execution  subroutine,  ex- 
changes the  two  three-page  blocks  of  data  and 
loads  all  the  registers  with  their  saved  values, 
then  executes  one  instruction  (which  has  been 
POKEd  in  from  BASIC).  When  the  instruction 
has  been  executed,  the  registers  are  saved  and 
BASIC'S  original  lower  three  pages  of  memory 
are  restored. 

The  same  technique  was  used  to  identify 
addressing  modes  as  in  my  disassembler  ("A 
6502  Disassembler,"  COMPUTE!,  January  1981, 
p.  81).  Lines  10000-10031  contain  four-character 
extended  mnemonics  for  the  6502's  instruction 
set.  The  fourth  character  is  a  tag  code  identifying 
the  addressing  mode  of  the  instruction.  In  lines 
110-120,  the  mode  is  identified  and  the  proper 
subroutine  is  called. 

There  are  several  instructions  which  cannot 
be  allowed  to  actually  execute  in  the  machine 
language  subroutine.  If  any  control  transfer 
instructions  (JMP,  JSR,  RTS,  RTl,  or  a  conditional 
branch)  were  executed,  control  would  not  be  re- 
turned properly  to  the  BASIC  program.  These  in- 
structions are  simulated  in  BASIC  instead,  so  that 
they  appear  to  execute  successfully.  The  SEI  and 
CLI  instructions  are  ignored,  since  interrupts  are 
always  disabled  during  the  execution  subroutine. 


A  ATARI 

600XL CALL 

800XL CALL 


SPECIALS 


=     WicoJoysiicK 
''.\  WicoTracHbal 

CompuServe   . 

Covers 


19S4      At^ri.  Inc.         Alt  rights  feien/ed 


DISK  DRIVES 

Indus  GT Call 

Trak  AT.D2       J3B8 

Irak  AT- 1   $319 

Trak  AT-D-l    Call 

Astra  1620  (Duall    . .    S499 

Percom  Call 

Atari  1050 $3J9 

RanalOOO Call 

MEMORIES 

Microbits64Kl)(U  .  $126 
Mosaic  48K  (4001  ,  .  $98 
Mosaic  64K  (400/800)  Call 
Mosaic  32K   .  $68 

Atari 64K(600XLj  ,  Call 


ADVENTURE  INT'L 

Ultra  DisassembierlD)  $33 

DiskeylOl    

.  $33 

Adv.  M2(eacH)(Cl 

.  ita 

Saga  1-12  (eachi  (Dl 

.  S27 

ATARI 

Atari  Writer  (R|    .. 

sm 

Paint  (D| 

S30 

Microsoft  Basic  II  (R| 

%M 

VrsicalciDl    

S139 

Home  File  Mgr(D|    . 

.  snfi 

Assembler  Editor(fi| 

$44 

QiK(R)    

$32 

DigDugiRI    

$32 

Atari  Logo  (R|      .    . 

S7? 

Robo1ron|R)    , 

$35 

AVALON  HtLL 

Telengard    ,  (C)S16(D)S19 

CloseAssault    (C120(D|23 

TAC(D)     

.  $27 

BHOOERBUND 

Arcade  MachineiD) 

$39 

Bank  SI  Writer  (D) 

$46 

Oper,  wriirlwind(D) 

$?7 

Ctioplifter      (01S23(R|S29 

Davids  Midnight  ID) 

$23 

CBS  SOFTWARE  .    . 

Call 

CONTINENTAL 

Home  Accountant  (D) 

$48 

Tax  Advantage  (D) 

$45 

COUNTERPOINT  SW 

Call 

DATASOFT 

Poovan(CID)     

$20 

Telelalk(D) 

$33 

Basic  Compiler  (D) 

$55 

Graphic  Gen  (D)    . . 

$17 

Graphic  Master  (01     - 

.  $23 

Micropainter(D|    

$?.-) 

ZaxKon  (C/DJ  

.  $27 

TexlWiiard/Speli(D) 

$55 

EASTERN  HOUSE 

Monkey  Wrench  11    ,. 

$51 

EDUCATIONAL  SW 

Tricky  1,2.3or4 

.  $15 

Tricky  5-13   

.  $22 

EPYX 

Dragon  Riders  (CiD)   . 

$27 

Terrpie  APS  (C/D)     . . 

$27 

Jumpman(C/D) 

$27 

Pit  Slop  (R)    

$27 

FIRST  STAR 

Boulder  Dsh  (C/O)20(R)27 

Bristles  (C/D) 

$20 

Flip  Flop  (C(D) 

$20 

CAMESTAR 

Football (OD)  

$71 

Baseball  (C(Dl 

$21 

INFOCOM 

Zorkl.  llorllllD)  ... 

$27 

Oeadline(D)    

$34 

StarcrossfD) 

$?7 

Suspended (D)    

$34 

Witness  (D) 

$34 

PlanetfalMD)  

$34 

EnchanterfOt      

$34 

Inlidel(O) 

$34 

KR  ELL  SAT 

Call 

INTELL  STATEMENTS 

Prof.  Blacl!|ack(D)   . . 

$46 

UK 

Letter  Reflect  (D)   .  .  . 

$74 

Data  Perfect  ID) 

$74 

Spell  Perfect  ID)     . 

$56 

Letter  Perfect  (R)    . 

$74 

MICROPROSE 

Solo  Flight  (D) 

$26 

Hellcat  Ace(C/D)    ..  . 

$23 

MONARCH 

ABCComBiler(Dl 

$55 

S27 
$39 
$27 


$36 
S20 

$65 
$65 
$54 


Aerobics  (Dl 
STRATEGIC  SIM. 
Broadsides  (D)    . 
Carriei  Force (D)  . 
Combat  Leader  ID) 

Rails  West  (D)   S27 

Epidemic  (D| $23 

Eagles  (D)      S27 

Cosmic  Bal  lor  ll|D}  .  .  S27 

SUB  LOGIC 

Flighl  Simulator  11(D) 

Pinbalt(C(0)    

SYNAPSE 

SynFile  +  (D)  ,        . 

SynTeil(D) 

File  Manager  (Rl  . 

Fort  A  pocal  ypse  ( C/DI    $23 

Dimension  X  (C/D)    . .  .  $23 

Blue  Ma»  (C/D)    S23 

Encounter  (0/R)    S23 

Zepplin(C/Di   $23 

Pftaroah'5CurSB(C/0l  $23 
THONIX 

S.A  M  (D)     $39 

P.M.  AnimalorfDI  .  . .  $29 
Juice  (C/D)  .    ,       S20 

Challe/beefD)    $27 

MISCELLANEOUS 

Miner 2049  (R)  $34 

Millionaire(C/D)    $45 

Zombies  (C/D| $23 

Prisoner  2  <D|    $27 

Sargon  11  (0)  $23 

GridrunnerlRI $20 

B-Gtaph(Dl $65 

Miles  Invoices  (D|  .  .  $57 
CaslleWolfensiBin(D)  $20 
Odesta Chess (0)  ...  $46 
Financial  Wizard  ID)  .  $41 
Ultima  111  (D)    $39 


INTERFACES 

Axiom  846    Call 

Ape  Face    . Call 

Atari  flSOfln  Stock)  ..  $169 

Intorlast  1     $150 

Microbits  1150 Call 

Axiom  Buffer    Call 

DIRECT  PRINTERS 

AKiom  AT-100    S219 

Atari  1027  S285 

Axiom  550  AT    $319 

Axiom  700  AT    S469 

Alan  1025  $395 

DIRECT  MODEMS 

Microbils  1000c   .-.  ..  $128 
Atari  1030    $114 

OTHER  ATARI 

400  Keyboard Call        ATR  8000  (e4K)  $448 

Koala  Pad $67         ATR  8000  (16K)    S295 

Chalkboard  Pad   $75        Alien  Voice  Box  $98 

Bil-380Column        .     $228         tOIOHecorder  $74 


ATARI  SOFTWARE 

OPTIMIZED  SYSTEMS 
Action  (R]     ,  $65 

Basic  XL  (R) $65 

Mac65(D|    $58 

C65  (0)    $58 

Bll965(D)    $23 

PARKER  BROS 

Astrachase(R)    $33 

DeatliSlar(R)   $33 

OBert(R) $33 

Popeye(H|  .  , $33 

PENGUIN 

Graphics  Magician  (D)   $39 

Spy's Demise(Dl    ...  $21 

QUALITY  SW 

Return  ol  Hercules  (D)    $22 

AIIBabafDI     $22 

RESTON 

Movierrai^er{Ol $45 

SCARBOROUGH  SYS. 

Masleflype(D/R) $27 

Songwriter  (D) $27 

SCHOOL  WIZWARE   .  Call 
SEGA 

Star  Trek  (R|     $27 

Buck  Rogers  (R)    $27 

Congo  BongoIR)    $27 

SIERRA  ON-LINE 

Homeword(D) $46 

UiiimalllD) 539 

DarkCryslal(D)    .  .    .  .  $26 

Wi7.  a  Princess  (D)    ...  $22 

SPINNAKER 

Snooper  Troop  t.2(DI     $30 

Most  Amazing  (D)       , .  $27 

KidsonKeyslDl   $20 

Trains  (D) $27 

Delta  Drawing  (R) $27 

$34 


$21  Maxells $25 

$36  Memorex   .  $24 

$26  Elephants  .  $1B 

.     $7  Flip-N  File $20 

CBM64    CALL 

SX64 CALL 

1701  MONITOR    $249 

>;^flSTRfl  1620 

DISK  DRIVE  SYSTEM 

MORE  FOR  YOUfi  MONEY 

DOUBLE  OR  SINGLE  DENSITY 

TWO  DRIVES 

SPECIAL    $499 

Printers/ Etc. 


STAR 

CITOH 

Gemini  10X   ... 

.  $268 

Prowrller   

.  .  $335 

Gemini  15X 

.  $378 

ProwrileTtl    

$648 

Delta  to 

.  $378 

Slarwriter 

$1098 

Star  Letter  Qual 

.  . .  Call 

Prinlmaster 

$1448 

EPSON 

OKI  DATA 

rx8o    

....  Call 

B2A    

.  .  Call 

MX100 

....  Call 
Call 

84P    

RX8OF/T  ...  , 

92     

..  Call 

SMITH  CORONA 

93     

- .  Cai 

TPU 

$438 

MANNESMAN 

JUKI 

Call 

I60L      . 

$588 

Spirit 

Call 

MONITORS 

AMOEK 

NEC 

Color  1    .  .  .  , 

.     $274 

GRN(JB1260)    ... 

.  $115 

V300 

.  ...  $139 

GRNIJB1201)    ... 

-  $149 

V300A    

.  .         $149 

Color  Composite 

$298 

Color  11 

$449 

RGR  rnlnr 

$598 
Call 

SAKATA 

Call 

PANASONIC 

MODEMS 

NOVATION 

HAYES 

J-Cat 

$99 

Smartmodem 

$209 

Apple  Cat  (1 

$259 

Smart  modem  1200 

$498 

$149 

Micromodem  11     . 

$259 

Micromodem  Me  . 

$239 

ov 


isV- 
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COSMIC 
COMPUTERS 


UNLIMITED 


727  BREA  CANYON  RD.,  SUITE  16 

WALNUT,  CA  91789 
ORDER  LINES  OPEN  MON-SAT  8  am  -  8  pm 

(800)  626-7642 


PLEASE  FOR  ORDERS  ONLY 
SORRY,  NO  COD'S 


c;;:iF.(7i4)  594-5204 

FOR  TECHNICAL  INFO,  ORDER  INQUIRIES, 
OR  FOR  CALIFORNIA  ORDERS 

Ado $2.50  shipping  per  soflware  Older  in  coniineniai  u.S  Ado  $5  00 
snippin.g  per  soltware  order  tat  AK.  HI.  f  PO-APO  Add  $10  00  or  15% 
(wtiictievei  IS  giealerl  per  software  order  lot  non-U  S  Call  lor  cost  ol 
tiardware  stiippmg  Calit  lesidfnls  add  6'/!=/.  sates  lai  Cashiers 
checlis  or  money  orders  lilieU  wiinm  24  nours  lor  items  in  stock 
Personal  ctiecks  reouire  4  weeiis  to  clear  MasterCard  and  (Tisa  OK  ht 
sotlwaieonly  wiihinconlinenialLI  S  .  add  3'/i  surctiarge  Include  card 
no.,  eiprraiion  dale  and  signaiure  Due  to  our  low  prices,  all  sales  are 
linal  All  delective  relums  must  Have  a  return  authonjatton  number 
Please  call  to  omain  one  Oetore  returning  goods  lor  replacement  or 
repair  Prices  i  aviiiaDiiily  suPiecl  to  change 


COMMODORE 


DISK  DRIVES 

MSD(170K|  $349 

MSD{Dual)(170Kx2)  ,  $539 

Laser(170Kl    $325 

Commodore  1541      .     $239 
Conoord(17QK)      ....  Call 

80  COLUMN  BDS 

BalterlesBOCoi  $149 

Video  PaK  80   $129 

Z80  Video  Pak  .    .        $209 

DIRECT  MODEMS 

Hesmodem  $53 

1650  Automodem  ...  S99 
1600  Modem CatJ 


64 


INTERFACES 

Trie  Connection  SB5 

Bus  Card  .     $149 

CardcoG  +        .  .  $69 

Cardco  6      .      ,  Call 

MSO(IEEE)    $98 

Cardco  5  Slot  $48 

RS  232    Call 

DIRECT  PRINTERS 

MPS  801  .  $219 

Commodore  1526  $288 

Cardco  LQI I  .  $498 

1520ColQr  Prinlar  ,  S12g 

RECORDERS 

Cardco  Recorder  S4e 

1530  Commodore      .     Call 
Cassette  Interlace         $29 


SOFTWARE 


64 


ACCESS  SOFTWARE 

Bcactied(D|  $24 

Neutral  Zone  ICrDl    .,     S24 

SpritemasterlD)   $25 

AVALON  HILL 
NuheWariO  $12 

Androm  Conquest (C)  $14 
Midway  Campaign^C)  $13 
Compuler  FoottialKCi  $13 
Telengard  .  (C)$16(D)$19 
Flying  Ace  (C)  115 

MooriPalioMQ       ...  $17 
BATTERIES  INCLUDED 
Paper  CliplD)         ,    .    $69 
Consultant  (D)  .      .  .       $75 

Bus  Card $138 

80  Column  BD  .  .     S13B 

Paper  Clip  W/Spell  ID)     $85 

Spell  PachtDl   $37 

Organizer  Series  (Eal     $22 

BLUE  SKY 

Calt:  Result  Adv.      ...  $99 

Gale  Result  Easy    ....  $57 

BRODEnBUND 

BankSl.  Writer(D)       .  $46 

Operat  Wtirlwnd(D]    .  527 

CtiopliHer(R|  $27 

Lode  Runner      |D)  23(H) 27 

CBS  SOFTWARE 

Success  wiiti  Matt!  (Dl   $17 

Wbstr  Word  Game  ID)    $20 

Learning  Bridge  (D)      .$55 

COMMODORE 

Simon's  Basic  |R)       CALL 

Magic  Desk  (R)   $48 

Logo(D)       $45 

Assembler  64  (D|  $15 

Easy  Script  64  ID)  .  .  $32 
Accounting  Pkgs(Ea)  $32 
COMPUTER  ADV.  IDEAS 
GameStiow(D)  .  .  S27 
Win  WlWords  lor  11(D)  $15 
Sports  Facts  (D)  .  $15 
CONTINENTAL  S.W. 
Home  Accountant  (D)  $48 
Tax  Advantage  ID)  .  $45 
FCM  (D)  $34 

COUNTER  POINT  SW 
Early  Games  (Ea)  $20 

CREATIVE  SOFTWARE 

Moondust(R)    $23 

Save  New  York  |R)    .    .  $23 

Pipes  (Rl    $23 

Househid  Finance  (C)  $20 
DATASOFT 

POQyan(C/0)     $20 

Moon  Shuttle  (0)  .  $20 

ENTECH 

Studio64(0/D)    ...       $28 

Database  64(D)    .  $45 

EPYX 

Temple  o(  APS  (C(01       $27 

Jumpman(CrD)  . .  $27 

Dra90nridBrs(C(Dl  $27 

Pit51op(R)  $27 

Gateway  to  APS  (R)        $27 

FIRST  STAR 

AstrochaselC/DI  $20 

Bristle  (C/D) $20 

Flip  Flop  (CID) $20 

FUTURE  HOUSE 

Comp.  Pers  Account     $56 

HES 

Synltiesound  64(D)        $23 

Omnica(clD)  $34 

Omniwriie:|D)      .  .        $45 

Hesmon(D) $27 

64Fortli(fl)   $39 

Multiplan(Dl      $65 

Turtle  Grapt!ics(B)     .    $39 

INFOCOM 

Planet  Fall(D)  . ,  $34 

Enchanter  fD)    .  $34 

ln(idel(D| $34 

JINSAM 

Mini  Jim  |R)  .       $75 

MICROSOFTWARE  INrL 
Practicalc64      (0)34(0136 
Spreadstieei   .  (C)49(D152 

Practillle  64(D)  $36 

MIRAGE  COMCEPTS 
Data  Base(O)         .  .      $68 
Word  Processor  (D)         $68 


MICKOSPEC 

Database  (D)  $44 

Mailing  List(D)    $32 

ClieckbooK  MgrlD)  . .    $47 

G(L(D)   $44 

A/PID)    $47 

A;R(D)    $47 


PARKER  BROS 

Q-Bert(R)               .    , 

.  $33 

Popcyo(fl) 

$33 

Froqger{R) 

$33 

PROFESSIONAL  SW 

WordPro  W/Spell  (01 

.  $68 

SpellrigtiUDl 

.  $45 

QUIKTEX 

Ouicli  Bi.  Fox(R| 

$49 

RAINBOW 

File  Assistant  (Dl 

.  $46 

Writers  Assistant  (D) 

$46 

Spreadsht  Assist.  (D) 

$56 

SCARBOROUGH 

MastertypelD/R)  .... 

.  $27 

Song  Writer  (Dl    .  . 

.  $27 

SEGA 

StarTrekiR) 

$27 

Buck  Rogers  (R) 

$2? 

Congo  Bongo  (HI 

$27 

S0FTSM1TH 

Touch  Typing  (C/D)     . 

$21 

SOUTHERN  SOLUTIONS 

Businessman  (01 

$48 

BillPayer(D) 

,  $48 

Bill  Collector  (D)  ... 

$48 

Paymasier(O)  

.  $48 

SPINNAKER 

Snooper  1  or  2(D) 

.  $27 

Aeroblc5(D) 

$34 

Kids  on  Keys  (D) 

$20 

Mos(  Amaiing(D) 
Kindercomp(D) 

$27 

.  $20 

Alphabet  Zoo  (D)  ... 

..  20 

Trains(D)          ... 

$27 

Delta  Drawing  (H) 

$27 

Delta  Music  (R) 

$27 

SUBLOGIC 

FUghi  Simulator  11(0) 

$36 

Pinball(C;D) 

$22 

SYNAPSE 

Ft.  Apocalypse  (C/D) 

$23 

Necromancer  (C/0) 

$23 

ZaicxDn(Dl  

$23 

Blue  Max  (D)     

$23 

Pharoati'sCurse(C/D) 

$23 

Zepplln(D} 

$23 

Quasimodo  (D)   ... 

$23 

SSI 

Combal  Leader  (C/D) 

$27 

Computer  Basebad  (D 

$27 

Eag(es(D) 

$27 

Ringside  Seal  (D) 

$27 

Tigers  In  Snow  (C/D)  . 

$27 

Battle  Normandy(C/D 

$27 

TIMEWORKS 

Dungeons  ol  Alg  (CD)  $17 

Robbers  Losi  (CID) 

Money  Mgr.(C/0) 

Wa((  Street  (OD| 

Data  Manager  (C/DI 

Elec.  Checkbook  (C/D) 

TOTL 

TottTexl     ..  (C)$32(D)$34 

Lahe(        ..     (C)$15(D)$17 

TimeMgr.    .  (C)$24(D)$27 

RsrchASSt.    (C)$24(D)$27 

TRONIX 

S.A.M  (D) 

$39 

Jyice(DI      

$23 

Chatterbee(D)    .... 

$27 

MISCELLANEOUS 

Dtskey(D) 

$33 

Barrens  Sat  (Dl   ... 

$59 

Mil[ionaire(D) 

$39 

Sargon  11(D) 

$23 

6Graph(D)        

$69 

Casl(eWo(lenslein(D| 

$20 

Odesta  Chess  (Dl   .  . 

$46 

U((ima  111(01    

$39 

Prol.  Blackjack  (D) 

$46 

Homeword(O)  J 

$46 

Pers.  Accountant  (D) 

$23 

Karate  Devi(s(D)  .... 

$27 

Final  FdghtlD)    . . 

$22 

MAE  Assembler  ID) 

$47 

How  Does  It  Work? 

The  simplest  way  to  see  how  the  program  works 
is  to  trace  through  an  example.  Suppose  the 
instruction  LDA  #$20  resides  at  addresses 
$03CO-$03C1.  For  this  instruction,  the  extended 
mnemonic  is  LDAB,  where  LDA  stands  for  LoaD 
Accumulator,  and  B  is  the  tag  code  for  immediate 
addressing.  The  hexadecimal  representation  for 
LDA  immediate  is  $A9,  which  is  equivalent  to 
decimal  169. 

Line  50,  the  top  of  the  main  loop,  calls  the 
keyboard  pause  routine  at  line  7000,  which  also 
handles  changing  registers.  In  line  55,  the  vari- 
able C  is  loaded  with  169  by  PEEKing  the  mem- 
ory addressed  by  B,  the  instruction  pointer.  The 
value  of  B,  960  in  this  example,  is  then  converted 
to  hexadecimal  characters  in  line  2000  and 
PRINTed. 

In  line  60,  NOP  instructions  are  POKEd  into 
the  execution  routine  to  take  up  space  after  one- 
or  two-byte  instructions.  The  hexadecimal  value 
of  the  opcode  is  printed  next,  and  then  the  mne- 
monic is  retrieved  from  the  array  R$().  (In  the 
Atari  version,  mnemonics  are  stored  in  the  string 
R$.)  If  the  mnemonic  is  a  blank,  this  instruction 
is  undefined  and  an  error  message  is  displayed. 
Otherwise,  the  standard  (three-character)  mne- 
monic is  PRINTed,  the  opcode  is  POKEd  into  the 
execution  routine  at  OP,  and  the  program 
counter  is  incremented  to  961. 

The  ASCII  code  for  B  is  66,  so  the  ON 
GOSUB  in  line  120  transfers  control  to  line  400. 
Here,  the  symbol  for  the  addressing  mode,  #$  is 
printed.  The  one-byte  operand  routine,  at  line 
3000,  PEEKs  location  961,  pointed  to  by  the  pro- 
gram counter.  This  number  is  POKEd  into 
OP  +  1,  then  converted  to  hexadecimal  and 
PRINTed.  After  incrementing  the  program 
counter  to  point  to  the  start  of  the  next  instruc- 
tion, a  RETURN  is  executed  at  line  3000. 

At  line  5000,  the  execution  routine  is  SYSed, 
CALLed,  or  USRed  depending  on  which  com- 
puter you  have.  The  contents  of  the  registers  are 
displayed,  and  control  passes  back  to  line  120. 
Here,  a  GOTO  50  takes  us  back  to  the  top  of  the 
loop,  where  the  instruction  at  $3C2  will  he 
executed. 

Tracing  Is  Educational  Too 

You  will  find  that  this  program  is  most  useful  for 
testing  small  ML  programs,  such  as  those  called 
as  subroutines  from  BASIC.  It's  also  good  for 
examining  sections  of  larger  programs  when 
you're  not  sure  how  a  particular  routine  works.  If 
you're  learning  machine  language,  you'll  find 
that  the  register  display  is  an  enormous  help  in 
understanding  the  effects  and  side  effects  of  each 
instruction,  especially  the  bits  (flags)  of  the 
processor  status  register. 
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Do  be  careful,  though.  Any  program  is 
vulnerable  when  dealing  with  something  as 
powerful  as  machine  language,  and  this  one  is 
no  exception.  There  are  more  ways  to  kill  a 
BASIC  program  from  ML  than  anyone  can  name 
in  one  sitting,  so  always  be  conscientious  about 
saving  your  programs.  After  you  type  this  one  in, 
SAVE  it  before  you  even  think  about  running  it. 
One  typographical  error  could  cause  the  program 
to  erase  itself,  or  at  least  lock  up  the  computer. 

There  are  also  some  ML  programs  that  this 
tracer  can't  follow,  such  as  those  which  dis- 
connect the  keyboard  or  video  display  (whether 
intentionally  or  accidentally).  If  everything  is 
saved  on  disk  or  tape  (for  real  security,  take  the 
diskette  or  cassette  out  of  the  drive),  you  can 
experiment  as  much  as  you  want,  and  then  if 
disaster  struck  all  you'd  have  to  do  is  just  turn 
the  computer  off  and  reload  the  program. 

Program  1 :  commodore  ml  Tracer 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  ttiis 
program  in, 

10  GOSUB6000  :rem  167 

35  POKEA, 0 : POKEX , 0 : POKEY, 0 : POKEP , 52 : POKES 

,255  : rem  63 

40  PRINT"START  ADDRESS  (HEX) " ; :H$="C000" : 

INPUTH$  jrem  106 

45  H$=RIGHT$(H$,4) :GOSUB1500 :B=D: PRINT"AN 

Y  KEY  TO  STEP"  :rem  9 

50  GOSUB7000:D=FRE(0)  : rem  197 

55  PRINT:C=PEEK(B) : D=B: GOSUB2000 : PRINTH$" 

" .  : rem  148 

60  POKEOP+1, 234:P0KE0P+2,234      : rem  127 

70  D=C:GOSUB2000:PRINTRIGHT${H?,2)"  " ; 

:rem  170 

80  IFR$(C)=""THENPRINT"INVALID  OPCODE":PR 

INT:G0T035  : rem  229 

90  R$=LEFT$CR$(C),3):PRINTR$"  " ; : POKEOP , C 

:B=B+1  :rem  175 

100  IFR?="BRK"THENPRINT:G0T035    : rem  141 

110  U$=RIGHT$(R$(C),1):IFU$="  "THENG0SUB2 

00:GOTO50  :rem  126 

120  ONASC(U?)-64GOSUB300,400,500,600,700, 

800,900,1000, 1100,1200, 1300:GOTO50 

: rem  156 

199  REM{4  SPACES }> implied  M0DE<    : rem  42 

200  IFR5="RTS"THENGOSUB4000 :B=D:GOSUB4000 
:B=D*256+B+ltGOSUB5005:RETURN  : rem  42 

203  IFR$<>"RTI"THEN208  : rem  16 

205  GOSUB4000: POKEP, D:GOSUB4000:B=D: GOSUB 

4000:B=D*256+B:GOSUB5005:RETURN 

:rem  204 
208  IFR$="SEI"ORR$="CLI"THENGOSUB5005 : RET 

URN  :rem  4 

210  GOSUB5000: RETURN  : rem  242 

299  REM  1 4  SPACES) > ABSOLUTE  HODE<  : rem  134 

300  PRINT"?"; :GOSUB2500  : rem  68 
310  IFR$="JMP"THENB=PEEK(0P+l)+PEEK(0P+2) 

*256:GOSUB5005: RETURN  : rem  34 

320  IFR5<>"JSR"THEN340  : rem  13 

330  B=B-1 iD=lNT(B/256) : GOSUB3500 :D=B-INT( 

B/256)*256:GOSUB3500  :rem  249 

335  B=PEEK(OP+1)+PEEK(OP+2)*256:GOSUB5005 

;  RETURN  sreiti    141 

340    GOSUB5000: RETURN  s rem    246 


399 

400 

499 
500 

600 

699 

700 

799 
800 

899 

900 

999 

1000 

1099 
1100 

1199 

1200 

1210 
1220 

1230 
1299 
1300 

1310 

1499 
1500 


REM {4  SPACES }> IMMEDIATE  MODE<:rem  183 
PRINT" #$"; :GOSUB3000:GOSUB5000: RETURN 

: rem  253 
REM {4  SPACES }> ZERO  PAGE  MODE< 
PRINT"?"; :GOSUB3000:GOSUB5000 


:rem  134 
{RETURN 
:rem  219 
:rem  232 
r :GOSUB5 
; rem  170 
:rem  234 
r :GOSUB5 
:rein  172 
: rem  46 
,X)" ; :GOSU 
:rem  249 


r:PRINTRIGHT$(H$,2); 

RN 
5999  REMf3  SPACES }> 


: rem  42 
rem  193 
:B=PEEK 
:rem  118 
GOSUB5005:RE 
trem  160 
DEC  <  :rem  137 


1999 

2000 


2005 
2499 

2500 


2999 
3000 

3499 
3500 
3505 

3510 
3999 
4000 
4005 

4010 
4999 

5000 
5005 

5010 


REM {4  SPACES} > ABSOLUTE, X< 
PRINT"$ " ; : GOSUB2500 : PRINT" , X" 
000: RETURN 

REM {4  SPACES }> ABSOLUTE, Y< 
PRINT" $"r : GOSUB2500 ; PRINT" , Y" 
000: RETURN 

REM {4  SPACES} >( INDIRECT, X)< 
PRINT" (?"; :GOSUB3000: PRINT" 
B5000: RETURN 

REM{4  SPACES }> (INDIRECT ),Y<    :rem  48 

PRINT" ( $ " ; ; GOSUB3000  s  PRINT" ) , Y"  ;  : GOSU 

B5000; RETURN  : rem  251 

REM {4  SPACES }> ZERO  PAGE,X<    : rem  234 

PRINT"$";:GOSUB3000:PRINT",X"; :GOSUB 

5000: RETURN  : rem  209 

REM [3  SPACES }> ZERO  PAGE,Y<    : rem  19 

PRINT " $ " ; : GOSUB3000 : PRINT" , Y" ; : GOSUB 

5000: RETURN  : rem  211 

REM {3  SPACES }> RELATIVE  JUMP<:rem  202 

PRINT"TO  "; :D=PEEK(B) ;B=B+1jD=D+(D>1 

27)*256:D=B+D:B1=D  . rem  52 

GOSUB2000 : PRINT " ? "H? ; ; BM=BM ( INT ( C/64 

)):BC=BMANDPEEK(P)  ; rem  254 

IFBC=  C INT{C/32 )AND1 }*BMTHENB=B1 

:rem  88 
G0SUB5 005: RETURN 
REM {3  SPACES )> INDIRECT  JUMP< 
PRINT"{"; :GOSUB2500tPRINT")" 
{OP+l)+PEEK(OP+2)*2S6 
B=PEEK(B)+PEEKCB+1 )*256 
TURN 

REM {3  SPACES }>  HEX  TO 
D=0:FORI=1TOLEN{HS):J=ASC(MID$(H$,I, 
1 ) )-48 J D=D*H+J+7*Cj>9): NEXT: RETURN 

:rem  180 
REM {3  SPACES }>  DEC  TO  HEX  <  trem  142 
H$="":FORI=1T04:E=INT(D/H):J=D-E*H:H 
$=CHR$ ( J+48-7  * ( J  >  9 ) ) +H$ : D=E : NEXT 

trem  192 
RETURN  -rem  167 

REM {3  SPACES }>  2BYTE  OPERAND  < 

:rem  165 
D=PEEK ( B+1 ) : POKEOP+2 , D ; GOSUB2000 : PRI 
NTRIGHT5 (HS , 2 ) ; :GOSUB3000 : B=B+1 : RETU 
RN  :rem  90 

REM  13  SPACES }>  IBYTE  OPERAND  < 

:rem  169 
D=PEEK  C  B ) : POKEOP+1 , D  s  GOSUB2000  s  PRINT 
RIGHT${H$,2); tB=B+l!RETURN   :rem  124 

REM {3  SPACES }>  PUSH  <        : rem  119 
J=PEEKCS):P0KEML+512+J,D     :reml94 
IFJ=0THENPRINT : PRINT"WARNING :  STACK 
{ S PACE } OVERFLOW ":J=2 5 6       :rem  114 
POKES, J-1: RETURN  : rem  57 

REM {3  SPACES }>  POP  <  :rem  43 
J=PEEKCS):D=PBEK{ML+513+J)  : rem  23 
IFJ=255THENPRINT:PRINT"WARNING:  STAC 
K  UNDERFLOW" :J=-1  ; rem  221 

POKES, J+1: RETURN  j rem  51 

REM {3  SPACES }>  EXECUTE  ONE  INSTRUCTI 
ON  <  :rem  148 

SYSML+23  -rem  237 

PRINT :FORK=0TO4:D=PEEK(A+K) :GOSUB200 
0  :rem  107 

PRINTMID$("  A=  X=  Y=  S=  P=",3*K+1,3) 


6000 
6001 

6002 

6003 
6004 


6005 

600B 

6010 
6015 

6020 
6999 
7000 
7010 

7020 

7030 
7040 
7050 
7060 

7070 

7100 

9000 

10000 

10001 

10002 
10003 
10004 

10005 

10006 
10007 
10008 

10009 

10010 

10011 
10012 
10013 

10014 
10015 
10016 
10017 

10018 

10019 
10020 

10021 

10022 


NEXT: PRINT: RETU 
:rem  143 
INITIAL  STUFF  < 

:rem  208 
ML=2*4096+8*256  : rem  245 

A=ML+240 : X=A+1 : Y=X+1 ;S=Y+1 : P=S+1 :H=1 
6:OP=ML+92  ; rem  2  39 

DIMR$ ( 255 ) : DIMBM ( 3 ) : FORI=0TO3 : READB; 
BM(I)=B:NEXT  : rem  204 

FORT=0TO255:READR$Ct):NEXT   ; rem  154 
READR? : IFR$  <  > " END "THENPRINT "ERROR  IN 
OPCODES" :PRINT"CHECK  FOR  TYPO'S": EN 
D  :rera  133 

1=0 : F0RT=MLT0ML+164 : READB : POKET , B : 1= 
1+B:NEXT  :rem  128 

IFI0  17737THENPR1NT "ERROR  IN  ML  DATA 
":PRINT"CHECK  FOR  TYPO' S" ; END: rem  36 
SYSML  : rem  95 

PRINT"{CLR}{7  down} {5  RIGHT}6502  ML 
[SPACE 3 TRACER {4  DOWN}"       : rem 
RETURN  ; rem 

REM {2  SPACES }>  PAUSE  <  : rem 
GETA$;IFA$=""THEN7000  ; rem 
IFA$="I"THEND=B:L=4:GOSUB7100:B=D: 


TO7000 

IFA$="A"THEND=PEEK(A) :L=2 

POKEA,D:GOTO7000 

IFAS="X"THEND=PEEK(X) 

POKEX,D:GOTO7000 

IFA$= " Y"THEND=PEEK ( Y ) 

POKEY, D: GOTO 7 000 

IFA$="S"THEND=PEEK(S} 

POKES, D:GOTO7000 

IFA$="P"THEND=PEEK(P) 

POKEP,D:GOTO7000 

RETURN 

PRINTA$"  =  ";  :GOSUB2000 

HT$ ( H? , L ) : GOSUBl 500 : RETURN 

DATA128,64,1,2 


163 
168 
189 
177 
:G0 


: rem  40 
GOSUB7100: 

: rem  177 
GOSUB 7 100: 

: rem  247 
GOSUB7100: 

:rem  251 
GOSUB7100: 

:rem  234 
GOSUB7100: 

;rem  226 

:rem  174 
INPUTH$:H$=RIG 

:  rem 

:rem 


;L=2: 


:L=2: 


:L=2: 


:L=2i 


124 
207 
142 


112 
228 
133 

244 


DATABRK  ,ORAF, , , , ORAC, ASLC, : rem 
DATAPHP  ,ORAB,ASL  , , ,ORAA, ASLA, 

;  rem 
DATABPLJ , ORAG , , , , ORAH , ASLH , : rem 
DATACLC  ,ORAE,,,,ORAD,ASLD,:rem 
DATAJSRA.ANDF,, , BITC , ANDC, ROLC, 

;rem 
DATAPLP  ,ANDB,ROL  , , BITA, ANDA, ROLA, 

:rem  148 
DATABMIJ,ANDG,, , ,ANDH,ROLH, : rem  209 
DATASEC  ,ANDE, , , ,AMDD,ROLD, :rem  128 
DATARTI  ,EORF, ,, ,EORC,LSRC, :rem  191 
DATAPHA  ,EORB,LSR  , , JMPA, EORA.LSRA, 

:rem  187 
DATABVCJ , EORG , , , , EORH , LSRH , : rem  249 
DATACLI  ,EORE, , , ,EORD,LSRD, :rem  163 
DATARTS  ,ADCF, , ,,ADCC,RORC, :rem  138 
DATAPLA  ,ADCB,ROR  , , JMPK, ADCA, RORA, 

: rem  140 
DATABVS J , ADCG , , , , ADCH , RORH , : r  em  211 
DATASEI  ,ADCE, ,,,ADCD,RORD,:rem  118 
DATA, STAF,, ,STYC, STAC, STXC,  : rem  36 
DATADEY  ,,TXA  , , STYA, STAA, STXA, 

:rem  192 
DATABCCJ , STAG , , , STYH, STAH , STXI , 

trem  73 
DATATYA  ,STAE,TXS  , , , STAD, , : rem  143 
DATALDYB, LDAF, LDXB, , LDYC, LDAC, LDXC, 

: rem  24 
DATATAY  ,LDAB,TAX  ,  ,  LDYA,LDAA, LDXA, 

:rem  149 
DATABCS J , LDAG , . , LDYH , LDAH , LDXI , 

! rem  248 
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10023  DATACLV  .LDAE.TSX  , , LDYD,LDAD, LDXE, 

: rem  17  3 

10024  DATACPYB,CMPF, , , CPYC, CMPC, DECC, 

:reni  250 

10025  DATAINY  ,CMPB,DEX  , ,CPYA, CMPA, DECA, 

:rem  148 

10026  DATABNEJ.CMPG, , , ,CMPH,DECH, :reni  201 

10027  DATACLD  , CMPE, , , , CMPD , DECD, : rem  116 

10028  DATACPXB,SBCF, , ,CPXC, SBCC, INCC, 

: rem  250 

10029  DATAINX  ,SBCB,NOP  , ,CPXA, SBCA, INCA, 

;rem  160 

10030  DATABEQJ,SBCG, , , ,SBCI, INCI, :rem  199 

10031  DATASED  , SBCE, , , , SBCD, INCD, : rem  118 

10032  DATAEND  : rem  231 

20000  DATA162 , 0, 181 , 0 , 157 , 0, 41 ,  189 

; rem  167 

20001  DATA0, 1,157, 0,42, 189,0,2    : rem  217 

20002  DATAl 57, 0,43, 23 2, 208,  236,  96,  120 

: rem  58 

20003  DATA162, 0,181, 0,168,  189,  0,41 

: rem  172 

20004  DATA149, 0,152, 157, 0,41, 189,0 

: rem  174 

20005  DATAl, 168, 189,0,42,157,0,1   ; rem  75 

20006  DATA15  2,157,0,42,189,0,2,168 

: rem  180 

20007  DATA189,0,43,157,0,2,152,157 

:rem  180 

20008  DATA0, 43, 232, 208, 213, 186, 138, 174 

: rem  125 

20009  DATA243,40,154,141,243,40,172,242 

; rem  165 

20010  DATA40, 174, 241, 40, 17 3, 244, 40, 72 

:rem  62 

20011  DATA173,240,40,40,234,234,234,8 

: rem  62 

20012  DATA141,240,40,104,141,244,40,142 

:rem  147 

2001 3  DATA241 , 40 , 140 , 242 , 40 , 186 , 138 , 174 

:rem  167 

20014  DATA243,40,154,141,243,40,162,0 

: rem  55 

20015  DATAiai,0,168, 189,0,41, 149,0 

:rem  180 

20016  DATA152, 157, 0,41, 189, 0,1, 168 

;rem  179 

20017  DATA189, 0,42, 157, 0,1, 152, 157 

:rem  179 

20018  DATA0, 42, 189, 0,2, 168, 189,0   : rem  84 

20019  DATA43,157,0,2,152,157,0,43;rem  124 

20020  DATA232,208,213,88,96       ; rem  100 

Program  2:  Apple  ml  Tracer 

10   GOSUB  6000 

35   POKE  A,0!  POKE  X,0!  POKE  Y,0» 

POKE  P,32s  POKE  S,255 
40   PRINT  "START  ADDRESS  (HEX)";i 

INPUT  H« 
42   IF  H*  -  ""  THEN  H*  -  "C000" 
45  H»  -   RIGHT*  <H*,4)i  BOSUB  150 

01 B  -  Di  PRINT  "ANY  KEY  TO  S 

TEP" 
50   GOSUB  7000 :D  »   FRE  (0) 
55   PRINT  iC  -   PEEK  (B)!D  -  Bs  GOSUB 

2000 J  PRINT  H«"  "5 
60   POKE  OP  +  l,234i  POKE  OP  +  2, 

234 
70  D  ->  Cs  GOSUB  2000:  PRINT   RIGHT* 

(H*,2)"  "; 


80   IF  R*(C>  -  ""  THEN   PRINT  "IN 

VALID  OPCODE"!  PRINT  t  GOTO 

35 
90  R«  -   LEFT*  (R*<C>,3)»  PRINT  R 

*"  ";:  POKE  OP,C:B  -  B  +  1 
100   IF  R«  -  "BRK"  THEN   PRINT  :  GOTO 

35 
110  U*  -   RIGHT*  <R«tC),l):  IF  U* 
_  ■•  1.  THEN   GOSUB  200 1  GOTO 

50 
120   ON   ASC  (U«)  -  64  GOSUB  300, 

400,500,600,700,800,900, 1000 

,1100,1200,1300:  GOTO  50 

199  REM      > IMPLIED  MODE< 

200  IF  R«  -  "RTS"  THEN  GOSUB  40 
00:  B  =  D:  GOSUB  4000:  B  «=  D  « 
236  +  B  +  1:  GOSUB  5005:  RETURN 

203   IF  R*  <   >  "RTI"  THEN  20S 
205   GOSUB  4000:  POKE  P,D:  GOSUB 
40001 B  -  D:  GOSUB  4000: B  »  D 

«  256  +  Bi  GOSUB  5005:  RETURN 
208   IF  R»  =  "SEI"  OR  R»  =  "CLI"  THEN 

GOSUB  5005:  RETURN 
210   aOSUB  5000:  RETURN 

299  REM      >ABSOLUTE  MODE< 

300  PRINT  "«";t  GOSUB  2500 

310   IF  R*  -  "JMP"  THEN  B  =   PEEK 
(OP  +  1)  +   PEEK  COP  +  2)  * 
256:  GOSUB  5005:  RETURN 

320   IF  R»  <   >  "J8R"  THEN  340 

330  B  -  B  -  1:0  -   INT  <B  /  256): 
GOSUB  3500: D  -  B  -   INT  (B  / 
256)  »  256 I  GOSUB  3500 

335  B  -   PEEK  <0P  +  1)  +   PEEK  (0 

P  +  2>  «  256:  GOSUB  5005s  RETURN 

340   BOSUB  S000:  RETURN 

399  REM      > IMMEDIATE  MODE< 

400  PRINT  "*«")i  GOSUB  30001  Q08UB 
5000:  RETURN 

499  REM      >ZERO  PAGE  MODE< 

500  PRINT  "*"|i  GOSUB  3000:  GOSUB 
50001  RETURN 

599  REM      >ABSOLUTE, X< 

600  PRINT  "*"M  BOSUB  25001  PRINT 
",X"|)  GOSUB  50001  RETURN 

699  REM      >ABSOLUTE,Y< 

700  PRINT  "*"t:  SOSUB  2500:  PRINT 
»,Y"ji  GOSUB  50001  RETURN 

799  REM      >(  INDIRECT,  XX 

800  PRINT  "<*"|:  GOSUB  30001  PRINT 
",X)"|i  Q08U6  5000:  RETURN 

899  REM      >( INDIRECT), Y< 

900  PRINT  "(*"|1  GOSUB  3000:  PRINT 
"),Y"|i  SOSUB  5000:  RETURN 

999  REM      >ZERO  PAGE,X< 

1000  PRINT  "«";:  GOSUB  3000:  PRINT 
",X»|:  GOSUB  5000:  RETURN 

1099  REM     >ZERO  PAaE,Y< 

1100  PRINT  "«")■  GOSUS  3000:  PRINT 
" , Y " I :  GOSUB  5000 :  RETURN 

1199  REM     >RELATIVE  JUMP< 

1200  PRINT  "TO  "|:D  -   PEEK  (B)i 
B  -  B  ••■  liD  -  D  -  (D  >  127)  t 
256iD  >  B  -<-  DiBl  -  D 

1210   BOSUB  2000:  PRINT  "«"H«|i6M 

«  BM<  INT  (C  /  64))iBC  -   INT 
<  PEEK  (P)  /  BM)iBC  -  BC  -  2 
t   INT  (BC  /  2) 

1220   IF  BC  -  t  INT  <C  /  32)  -  2  » 
INT  <C  /  64) >  THEN  B  -  Bl 
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1230   Q08UB  S005I  RETURN 

1299  REM     >INDIRECT  JUMP< 

1300  PRINT  "("ii  BQSUB  2S00I  PRINT 
")"|lB  -   PEEK  (OP  +  1)  +   PEEK 
(OP  +  2)  »  256 

1310  B  =   PEEK  (B)  +   PEEK  (B  +  1 
)  *   2561  608UB  5005 i  RETURN 


1499 
1500 


1999 
2000 


REM     >  HEX  TO  DEC  < 
D  =  01  FOR  I  -  1  TO   LEN  <H« 
)iJ  =   A8C  (  NID4  (H«,I,1>>  - 
48:0  "D«H+J-7«(J> 
9):  NEXT  :  RETURN 

REM     >  DEC  TO  HEX  < 
H*  =  ■■";  FDR  I  -  1  TO  4lE  = 

INT  (D  /  H):J  =  D  -  E  »  H:H 
*  =   CHR*  (J  +  48  +  7  «  (J  > 
9)>  +  H«:D  =  E:  NEXT 
2005   RETURN 

2499  REM     >  2BYTE  OPERAND  < 

2500  D  =   PEEK  (B  +  l)t  POKE  OP  + 
2,D:  GQSUB  2000;  PRINT   RIGHT* 
(H«,2};:  GOSUB  30001 B  =  B  -I- 

1 :  RETURN 


2999 

REM     >  IBYTE  OPERAND  < 

3000 

D  =   PEEK  (B) :  POKE  OP  +  1,0 

:  GOSUB  2000:  PRINT   RIGHT* 

(H*,2);:B  ■=  B  +  Is  RETURN 

3499 

REM     >  PUSH  < 

3500 

J  =   PEEK  (S) :  POKE  ML  +  512 

+  J,D 

350S 

IF  J  ■=  0  THEN   PRINT  !  PRINT 

"WARNING;  STACK  OVERFLOW" i J  = 

256 

3510 

POKE  S,J  -  1:  RETURN 

3999 

REM     >  POP  < 

4000 

J  -   PEEK  (8) ID  =   PEEK  (ML  + 

+  Is  RETURN 
EXECUTE  ONE  INSTRU 


513  +  J) 
4005   IF  J  -  255  THEN   PRINT  :  PRINT 

"WARNING:  STACK  UNDERFLOW"! J 
=   -  1 
4010   POKE  S,J 

4999  REM     > 
CTION  < 

5000  CALL  (ML  +  23) 

5005   PRINT  s  FDR  K  =  0  TO  4;D  - 
PEEK  (A  +  K):  GOSUB  2000 

5010   PRINT   MID*  ("  A=  X=  Y=  8- 

P-",3  t    K  +  1,3); s  PRINT   RIGHT* 
(H*,2);:  NEXT  ;  PRINT  i  RETURN 

5999  REM     >  INITIAL  STUFF  < 

6000  ML  >  2  «  4096  +  8  «  256 

6001  A  "  ML  +  240! X  *  A  +  1:Y  =  X 

+  1:8  -  Y  +  1:P  »  S  +  1;H  = 
16iOP  »  ML  +  92 

6002  DIM  R*(255):  DIM  BM(3)i  FOR 
I  -  0  TO  3;  READ  BsBM(I)  =  B 
:  NEXT 

6003  FOR  T  -  0  TO  255:  READ  R*(T 
) 1  NEXT 

6004  READ  R*s  IF  R*  <   >  "END"  THEN 
PRINT  "ERROR  IN  OPCODES":  PRINT 

"CHECK  FOR  TYPO'S"s  END 

6005  I  a  0s  FOR  T  «  ML  TO  ML  +  16 
4s  READ  B:  POKE  T.BsI  =  I  + 
Bt  NEXT 

6008  IF  I  <  >  17737  THEN  PRINT 
"ERROR  IN  ML  DATA":  PRINT  "C 
HECK  FOR  TYPO'S":  END 

6010   CALL  ML 


6015   HOME  :  PRINT  "6502  ML  TRACE 

R" 
6020   RETURN 

6999  REM    >  PAUSE  < 

7000  BET  A*:  IF  A*  =  ""  THEN  700 
0 

7010   IF  A*  =  "I"  THEN  D  -  B;L  " 

4:  GOSUB  7100: B  =  D;  GOTO  70 

00 
7020   IF  A«  =  "A"  THEN  D  =   PEEK 

(A>:L  -  2:  GOSUB  7100:  POKE 

A,D:  GOTO  7000 
7030   IF  A«  =  "X"  THEN  D  =   PEEK 

(X>sL  -  2;  GOSUB  7100:  POKE 

X,D:  GOTO  7000 
7040   IF  A*  =  "Y"  THEN  D  -   PEEK 

(Y):L  =  2:  GOSUB  7100!  POKE 

Y,D:  GOTO  7000 
7050   IF  A*  =  "S"  THEN  D  -   PEEK  (8) 

sL  -  2t  GOSUB  7100:  POKE  S,Di  BOTQ 

7000 
7060   IF  A*  =  "P"  THEN  D  =-   PEEK 

(P):L  =  2:  GOSUB  7100:  POKE 

P,Di  SOTO  7000 
7065   IF  A*  -   CHR*  (3)  THEN   STOP 

7070   RETURN 

7100   PRINT  A*"-"|i  GOSUB  2000iA* 

=  H«:  INPUT  H«!  IF  H$  =  ""  THEN 

H«  -  A* 
7110  H*  -   RIGHT*  <H*,L)i  BOSUB  1 

5001  RETURN 
9000   DATA  128,64,1,2 

10000  DATA  BRK  , ORAF, , , ,ORAC, ASL 
C, 

10001  DATA  PHP  ,ORAB,AaL  ,,,ORAA 
,ASLA, 

10002  DATA  BPLJ,ORAQ, ,,,ORAH,ASL 
H, 

10003  DATA  CLC  ,ORAE, , , ,ORAD, ASL 
D, 

10004  DATA  J8RA,ANDF,,,BITC,ANDC 
,ROLC, 

10005  DATA  PLP  ,ANDB,RDL  ,,BITA, 
ANDA.ROLA, 

1 0006  DATA  BM I J , AND6 , , , , ANDH , ROL 
H, 

10007  DATA  SEC  , ANDE, , , , AMDD, ROL 
D, 

1 0008  DATA  RT I  , EORF , , , , EORC , LSR 
C, 

10009  DATA  PHA  ,EORB,LSR  ,,JMPA, 
EORA.LSRA, 

10010  DATA  BVCJ,EOR6,,,,E0RH,LSR 
H, 

10011  DATA  CLI  ,E0RE,,,,EDRD,LSR 
D. 

10012  DATA  RT8  , ADCF, , , , ADCC.ROR 
C, 

10013  DATA  PLA  ,ADCB,RQR  ,,JMPK, 
ADCA,RORA, 

10014  DATA  BVSJ,ADCB, ,,,ADCH,RDR 
H, 

10015  DATA  SEI  ,ADCE,, ,,ADCD,ROR 
D, 

1 00 1 6  DATA  , STAF , , , BTYC , STAC , STX 
C 

10017  'data  dey  ,,txa  ,,stya,staa 

,STXA, 
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1001B   DATA  BCCJ,STAG,,,STYH,STAH 

pSTXI, 
10019   DATA  TYA  .STAE.TXS  , , , STAD 

10020'  DATA  LDYB,LDAF,LDXB, ,LDYC, 
LDAC.LDXC, 

10021  DATA  TAY  ,LDAB,TAX  ,,LDYA, 
LDAA,LDXA, 

10022  DATA  BCSJ, LDAQ , , , LD YH , LD AH 
, LDX I , 

10023  DATA  CLV  ,LDAE,TSX  ,,LDYD, 
LDAD,LDXE, 

10024  DATA  CPYB,CMPF,,,CPYC,CMPC 
, DECC, 

10025  DATA  I NY  ,CMPB,DEX  ,,CPYA, 
CMPA.DECA, 

10026  DATA  BNEJ.CMPe,,,, CMPH , DEC 
H, 

10027  DATA  CLD  , CMPE, , , ,CMPD, DEC 

D, 
1002B   DATA  CPXB,eBCF,,,CPXC,8BCC 

, INCC, 

10029  DATA  INX  ,SBCB,NOP  ,,CPXA, 
5BCA,  ir^A, 

10030  DATA  BEQJ,SBC6,,,,SBCI,INC 

I> 

10031  DATA  SED  , SBCE, , , , SBCD, INC 

D, 

10032  DATA  END 

20000  DATA  162,0,181,0,157,0,41, 
189 

20001  DATA  0,1, 157,0,42,109,0,2 

20002  DATA  157,0,43,232,208,236, 
96,120 

20003  DATA   162,0,181,0,168,189, 
0,41 

20004  DATA  149,0,152,157,0,41,18 
9,0 

20005  DATA  1,168,189,0,42,157,0, 
1 

20006  DATA  152,157,0,42,189,0,2, 
168 

20007  DATA  189,0,43,157,0,2,152, 

157 

20008  DATA  0,43,232,208,213,186, 
138, 174 

20009  DATA  243,40, 154,141,243,40 
,172,242 

20010  DATA  40,174,241,40, 173,244 
,40,72 

20011  DATA  173,240,40,40,234,234 
,234,8 

20012  DATA  141,240,40,104, 141,24 
4,40,142 

20013  DATA  241,40,140,242,40,186 
,138,174 

20014  DATA   243,40,154,141,243,4 
0,162,0 

20015  DATA  181,0,168, 189,0,41,14 

9,0 

20016  DATA  152,157,0,41,189,0,1, 

168 

20017  DATA  189,0,42,157,0,1,152, 
157 

20018  DATA  0,42,189,0,2,168,189, 
0 

20019  DATA  43,157,0,2,152,157,0, 

43 

20020  DATA  232,208,213,88,96 
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Program  3:  Atari  ml  Tracer 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  ttiis 
program  in. 

m 10  GD9UB  6000 

DP  35  POKE  A,0:POKE  X,0:PDKE  Y,0:POK 

E  P, 52; POKE  S,2S5 
Hfl  40  PRINT  "START  ADDRESS  (HEX)";:  I 

NPUT  H* 
JC  42  I=LEN<H*)-3:  IF  Kl  THEN  I  =  1:IF 

NOT  LENCH$)   THEN  H«="C000" 
K 45  H*  =  HS ( I)  : GOSUB  1 500 ; B  =  D : PR  I  NT 

"HIT  RETURN  TD  STEP" 
HF  50  GDSUB  7000:  D  =  FRE  <  0  ) 
SPSS  PRINT  :C  =  PEEK  CB)  :D  =  B:GOSUB  200 

0: PRINT  H*;"  "; 
OP  6  0  POKE  OP  +  1  ,  234:  POKE  OP  +  2,234 
BI  70  D  =  C;GOSUB  2000:PRINT  H$(3);"  " 


OD  7  5 
ED  80 


0*=R«(C«4+1 ,C«4+3) :U*=R* (C*4+4 
, C*4+4) 

IF  0*="<:3  SPACES}"  THEN  PRINT 
"INVALID  OPCODE" : PRINT  : GOTO  3 
5 
PB  90  PRINT  D*;"  "  ;  ;  POKE  OP,C:B  =  B+l 
IK  100  IF  0*="BRK"  THEN  PRINT  :  GOTO 

35 
OE110  IF  U*="  "  THEN  BOSUB  200:GOTO 

50 
JH  120  ON  ASC(US)-&4  BOSUB  300,400,5 
00, 600, 700, 800, 900, 1000, 11 00, 
1200, 1300: GOTO  50 
CK  199  REH  >IMPLIED  MODE< 

CH  200  IF  0*="RTS"  THEN  BOSUB  4000:  B 
=D:GOSUB  4000 : B=D »256+B+ 1 : GOS 
UB  5005:RETURN 
All  203  IF  D$<>"RTI"  THEN  208 
HH  205  GOSUB  4000:  POKE  F,D:GQSUB  400 
0:B=D:GDSUB  4 000 : B=B*256+D : GD 
SUB  5005:RETURN 
fO  208  IF  0$="SEI"  OR  0*="CLI"  THEN 

GDSUB  5005:RETURN 
PC  210  GDSUB  5000:  RETURN 
16  299  REM  >ABSOLUTE  MODE; 
EE  300  PRINT  "$";:  GOSUB  2500 
BF310  IF  0$="JMP"  THEN  B  =  PEEK(0P+1) 
+ PEEK (OP +2) *256:GDSUB  5  005:RE 
TURN 
M:  320  IF  0*<>"aSR"  THEN  340 
PJ  330  B  =  B-i  :  D=INT  (B/256)  :  GOSUB  3500 
:  D  =  B-1NT  (B/25ib)  *256:  GOSUB  350 

0 
IN  335  B  =  PEEK  <  OP+1  )  +PEEK  (OP  +  2)  » 256:  G 

OSUB  5005: RETURN 
PB340  GDSUB  5000:  RETURN 
LH  399  REM  >IMMEDIAT£  MDDE< 
PN  400  PRINT  "tt*";:  GOSUB  3000:  GOSUB 

5000: RETURN 
16  499  REM  >ZERD  PAGE  MODE< 
tIL  500  PRINT  "4"::G0SUB  3000:GOSUB  5 

000: RETURN 
QJ  599  REM  >ABSDLUTE.X< 
»:»;  600  PRINT  "*";:  GOSUB  2500:  PR  I  NT  " 

,X";: GDSUB  5000:RETURN 
OK  699  REM  ;  ABSOLUTE,  Y< 
KM  700  PRINT  "*";:  GDSUB  2500:  PR  I  NT  " 

,Y";:EOSUB  5000:RETURN 
CO  799  REM>(INDIRECT,X)< 
PJ  800  PRINT  "C*";:GOSUB  3000:PRINT 

",X)";;QOSUB  5000:RETURN 


Dfl  899 
PL  900 

OK  999 
NB  1000 

BD  109  9 
ND  1  100 

NK  1  199 
DG  1200 

FN  1210 


DK  1220 

CK  1230 

HB  1299 

M  1300 


KA  1310 

!J  1499 
ON  1500 


10  1999 
JD  2000 


KH  2005 
J:f  2499 
IN  2500 


KJ  2999 
KP  3000 


HH  3499 
K  3500 
HC  3505 

DJ  3510 
CL  3999 
BK  4000 
NN  4005 


DD  4  0  1  0 
JE  4999 

FJ  5000 
LH  5001 
Jf  5002 
BL  5005 

KO  5010 


KB  59  9  9 

IIP  6000 

PC  6020 

CB  6030 


6035 


REM  > ( INDIRECT) , Y< 
PRINT  "<*"::GDSUB  3000:PRINT 
■' )  ,  Y"  ;  :  GOBUB  5000:RETURN 
REM  >ZERO  PAeE,X< 
PRINT  "*"5:SDSUB  3000:PRINT 
",X";:GDBUB  5000: RETURN 
REM  >ZERD  PABE,Y< 
PRINT  "*";:GOSUB  3000;PRINT 
",Y";:GOSUB  5000: RETURN 
REM  >RELATIVE  JUMP< 
PRINT  "TO  ■' ;  :  D  =  PEEK  (B)  :  B  =  B+1 
:D  =  D-CD>127)  «256: D  =  B  +  Ds  B1=D 
GDSUB  2000:PRINT  "*";H*;:BM= 
BM ( INT (C/64) ) : BC=INT (PEEK (P> 
/BM) : BC=BC-2«INT (BC/2) 
IF  BC= < INT (C/32) -2»INT (C/64) 
)  THEN  B=B1 
GOSUB  5005: RETURN 
REM  >INDIRECT  JUMP< 
PRINT  "(";:GOSUB  2500: PRINT 
")  "  ;  :B=PEEK<0P+1 )+PEEK(DP  +  2) 
*0 

B=PEEK (B) +PEEK (B+1 >  »256:  6DSU 
B  5005:RETURN 
REM  >  HEX  TO  DEC  < 
D=0:FOR  1=1  TO  LEN ( H») : J=ASC 
<H4 (I , I) )-4e:D=D«H+J-7« ( J>9) 
:NEXT  I: RETURN 
REM  >  DEC  TO  HEX  < 
H*="":FDR  1=1  TO  4:E=1NT(D/H 
) : J=D-E*H: I*=H*: H*=CHRt (J +4 8 
+  7*  ( J>9)  )  :  H* (2) =I*:D  =  E: NEXT  I 
RETURN 

REM  >  2BYTE  OPERAND  < 
D=PEEK <B+1) : POKE  OP+2,D:eOSU 
B  2000:PRINT  H*(3);:G0SUB  30 
00: B=B+1 : RETURN 
REM  >  IBYTE  OPERAND  < 
D=PEEK (E) : POKE  0P+1,D:G0SUB 
2000:PRINT  H* (3) ; : B=B+1 : RETU 
RN 

REM  >  PUSH  < 

J=PEEK £S) : POKE  ML+512+J,D 
IF  J=0  THEN  PRINT  :PRrNT  "WA 
RNING:  STACK  OVERFLOW ": J =256 
POKE  S,J-1:RETURN 
REM  >  POP  < 

J=PEEK(S) : D=PEEK (ML+5  13+J) 
IF  J=255  THEN  PRINT  :PRINT  " 

WARNING:  STACK  UNDERFLOW ": J= 

-1 

POKE  S,J+1:RETURN 

REM  >  EXECUTE  ONE  INSTRUCTID 

N  < 

POKE  54286,0 

D=USR (ML+24) 

POKE  54286,64 

PRINT  :FOR  K=0  TO  4:D=PEEK(A 

+K) : GOSUB  2000 

PRINT  REGS (3*K+1, 3«K+3) ; : PRI 

NT  H*(3);:NEXT  K:PRINT  : RETU 

RN 

REM  >  INITIAL  STUFF  < 

f1L  =  6«4096 

A=ML+24  0: X=A+1 :Y=X+1:S=Y+1:P 

=S+l:H=16:DF=ML+94 

DIM  R* ( 1 024)  , H* < 1 2)  ,  IS  (  12)  , O 

S  (3)  , U*  (  1  )  , REG*  < 15)  , BM (3)  : FO 

R  1=0  TO  3:READ  B:BM<I)=B:NE 

XT  I 

RE6*="  A=  X=  Y=  S=  P=" 


EF  6040  FDR  T  =  0  TO  255:READ  HS:IF  H$ 

=""  THEN  HS=" C4  SPACES> " 
Bt;  6045  RS  (T*4  +  l  )  =H*:  NEXT  T 
HC  6050  READ  H$:IF  HS<>"END"  THEN  PR 

INT  "ERRGR  IW  OPCODES ": PR  I  NT 
"CHECK  FOR  TYPO' S" : END 
NH  6060  I=0:FOR  T  =  ML  TO  ML+166:READ 

BiPDKE  T,B:  1  =  1 +B: NEXT  T 
CE  6070  IF  I019457  THEN  PRINT  "ERRO 

R  IN  ML  DATA": PRINT  "CHECK  F 

DR  TYPO'S":END 
DD  6080  D  =  USR(.ML) 

flH  6090  PRINT  "6502  ML  TRACER" 
kH6100  RETURN 
LN  6999  REM  >  PAUSE  < 
HD7000  INPUT  H* 
CP7010  IF  H*="I"  THEN  D  =  B :  L  =  4:  GOSUB 

7100: B=D: GOTO  7000 
LI  7020  IF  H*="A"  THEN  D  =  PEEK  (  A  )  :  L  =  2 

:eOSUB  7100:POKE  A,D:G0TO  70 

00 
PO  7030  IF  H$="X"  THEN  D  =  PEEK  <  X  )  :  L  =  2 

: GOBUB  7100: POKE  X,D:BOTa  70 

00 
AC  7040  IF  Ht="Y"  THEN  D  =  PEEK  (  Y  )  :  L  =  2 

:GOSUB  7100:POKE  Y,D:GOTO  70 

00 
PE  7050  IF  H«="S"  THEN  D  =  PEEK  (  S  )  :  L  =  2 

:GOSUB  7100;POKE  S,D:GOTO  70 

00 
OJ  7060  IF  H*="P"  THEN  D  =  PEEK  (  P  )  ;  L  =  2 

: GOSUB  7100:POKE  P,D:QOTO  70 

00 
KD7070  RETURN 
DJ7100  PRINT  H*;  "  =  ";:  INPUT  H*:I=LEN 

CHS>-L  +  1;IF  Kl  THEN  I  =  1:IF 
NOT  LEN(H«)  THEN  RETURN 
BD7120  H*  =  Ht  (I  )  iGOSUB  1500:RETURN 
MP  9000  DATA  128,64,1,2 
10  10000  DATA  BRK  ,  QRAF,  ,  ,  ,  ORAC,  ASLC 

HA  10001  DATA  PHP  ,ORAB,ASL  ,,,ORAA, 

ASLA, 
ai  10002.     DATA  BPLJ,  ORAG,  ,  ,  ,ORAH,  ASLH 

IF  10003  DATA  CLC  ,  ORAE ,  ,  ,  ,  ORAD,  ASLD 

PE  10004  DATA  JSRA,  ANDF,  ,  ,  BITC,  ANDC, 

ROLC, 
JE  10005  DATA  PLP  ,ANDB,ROL  ,,BITA,A 

NDAjROLA, 
NB  10006  DATA  BMIJ  ,  ANDG  ,  ,  ,  ,  ANDH  ,  ROLH 

r 

Ifl 10007  DATA  SEC  , ANDE, , , , AMDD , ROLD 

LP  10008  DATA  RTI  ,  EORF ,  ,  ,  ,  EORC ,  LSRC 

LL  10009  DATA  PHA  ,EDRB,LSR  ,,JMPA,E 

ORA,LSRA, 
PJ  10010  DATA  BVCJ,EORG,  ,  ,  ,EDRH,LSRH 

KD  10011  DATA  CLI   ,  EORE  ,  ,  ,  ,  EORD,  LSRD 

It  10012  DATA  RTS  ,  ADCF  ,  ,  ,  ,  ADCC  ,  RORC 

IM  10013  DATA  PLA  ,ADCB,RDR  .,JMPK,A 

DCA,RORA, 
ND  10014  DATA  BVS  J  ,  ADCG  ,  ,  ,  ,  ADCH  ,  RORH 

* 

HE10015  DATA  SEl  ,  ADCE  ,  ,  ,  ,  ADCD  ,  RORD 
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C£  10016  DATA  ,  STAF,  ,  ,  STYC,  STAC,  STXC 

116  10017  DATA  DEV  ,,TXA  ,,STYA,STAA, 

STXA, 
EJ  1001a  DATA  BCCJ  ,  STAG,  ,  ,  STYH,  3TAH, 

STXI  , 
IP  10017  DATA  TYA  ,STAE,TXS  ,,,STAD, 

EI  10020  DATA  LDYB,  LDAF,  LDXB,  ,  LDYC,  L 

DAC, LDXC, 
JF  10021  DATA  TAY   ,LDAB,TAX   ,.LDYA,L 

DAA, LDXA, 
PI  10022  DATA  BCSJ  ,  LDAG,  ,  ,  LDYH.  LDAH, 

LDX  I  , 
t;M  10023  DATA  CLV  ,LDAE,TSX  ,.LDYD,L 

DAD, LDXE, 
PK  10024  DATA  CPYB  ,  CMPF  ,  ,  ,  CP YC  ,  CMFC  , 

DECC, 
JE  10025  DATA  INY  ,CMPB,DEX  ,.CPYA,C 

M  P  A  ,  D  E  C  A  , 
MJ  10026  DATA  BNE  J  ,  CMFG  ,  ,  ,  ,  CMPH  ,  DECH 

HE  10027  DATA  CLD  ,  CMPE  ,  ,  ,  ,  CMPD  ,  DECD 

pi:  10028  DATA  CP  X  B  ,  SBCF  ,  ,  ,  CP  X  C  .  S  BCC  , 

INCC, 
H 10029  DATA  INX  ,3BCB,NDP  ,,CPXA,S 

BCA, INCA, 
MH  10030  DATA  BED  J  ,  SBCG  ,  ,  ,  ,  SBCI  ,  I  NC  I 


HG  10031 


31  DATA  SED  ,SBCE, 


SBCD, INCD 


DH  10032  DATA  END 

KF  20000  DATA  104,162,0,181,0,157,0, 

97 


FE 

20001 

GQ 

20002 

DP 

20003 

IH 

20004 

m 

2000s 

EP 

20006 

PL 

20007 

IF 

20008 

HB  20009 

LJ 

20010 

FA 

2001  1 

HE 

20012 

IL 

20013 

LN 

20014 

LK 

20015 

LM 

20016 

fj 

20017 

hC  20018 

HC 

20019 

PD 

20020 

DATA  139,0,1,157,0,98,189,0 

DATA  2,157,0,99,232,208,236 

,96 

DATA  120,104,162,0,181,0,16 

8,  139 

DATA  0,97,149,0,152,157,0,9 

7 

DATA  189,0,1,168,189,0,98,1 

57 

DATA  0,1,152,157,0,98,189,0 

DATA  2,168,189,0,99,157,0,2 

DATA  152,157,0,99,232,208,2 

13, 186 

DATA  138,174,243,96,154,14  1 

,243,96 

DATA  172,242,96,174,241,96, 

173, 244 

DATA  96,72,173,240,96,40,23 

4,  234 

DATA  234,8,141,240,96,104,1 

41 , 244 

DATA  96,142,24  1,96,140,242, 

96, 186 

DATA  138,174,243,96,154,141 

, 243, 96 

DATA  162,0,181,0,168,189,0, 

97 

DATA  149,0,152,157,0,97,189 

,0 

DATA  1,168,189,0,98,157,0,1 

DATA  152,157,0,99,189,0,2,1 

68 

DATA  189,0,99,157,0,2,152,1 

57 

DATA  0,99,232,208,213,88,96 


Put  a  Monkey  Wrench 
into  your  ATARI  800  or  XL 


$49.95 


Cut  vour  programming  time  from  hours  to  seconds,  and  have  33 

direct  mode  commands  and  lunctrons.  All  at  your  linger  lips  and 

all  made  easy  by  the  MONKEY  WRENCH  II. 

The  MONKEY  WRENCH  II  plugs  easily  into 

the  cartridge  slot  o(  your  ATARI  and  works 

with  the  ATARI  BASIC. 

Order  your  MONKEY  WRENCH  11  today  and 

enjcythe  conveniences  of  these  33  features 

•  Line  numbering 

•  RenuiTibering  basic  line  numbers 

•  Deletion  of  line  numbers 

•  Varioble  and  current  value  display 

•  Location  of  every  string  occurrence 

•  String  exchange 

•  Ivlove  lines 

•  Copy  lines 

•  Up  and  down  scrolling  of  basic  programs 

•  Special  line  formats  and  poge  numbering 

•  Disk  directory  display 

•  fvia  (gins  change 

•  Home  i<ey  (unctions 

•  Cursor  exchonge 

•  Uppercase  lock 

•  Hex  conversion 

•  Decimal  conversion 

•  Machine  language  monitor 

•  DOS  functions 

•  Function  keys 

The  MONKEY  WRENCH  II  Olso  contains  a  machine 
lanquoge  monitor  with  16  commands  that  con  beusea 
to  interact  with  the  powerful  teotures  of  the 6502  microprocessor 


"The  Rabbit" 

for  your  VIC  20  or  CBM  64 

;,cj=*r,QV'C2aoraC3MMar.ar3ieDee-iCQnce-ned 

Qixut  tre  r-ign  cosi  ct  a  disJ<  to  store  yc-jr  proqioms  on 

■A'c-r^^  vcvjfssil  no  Jcnger  Nsat  there's  fne  tWBBli  "he  RA33lt 

coTen  iri  □  carTf  idge  and  at  a  mjcri.  mucfi  lower  r^ice 

ironireawagedBli  Andspeeo     thisisonetasttWBBT 

iVitri  tre  RABBI  vou  can  Iraa  and  store  on  your  CBM 

doioselie  on  BX  D'ogroii  in  olmosl  30  secondi  comixirBd 

to  tne  current  3  minutes  ol  o  VIC  20  01  CBM  M,  olmosl  as 

tast  OS  trie  "541  disi<  drive 

'ne  RABBI  I  is  eas/  to  instoll.  allows  one  to  Append 

Sosic  Pfograms.  works  with  or  without  Excxjnsion 

Vemory,  and  provides  two  dota  tiJe  modes  Tne 

■JABBtl  is  net  onlv  lost  but  leliable 

nne  Rabtal  tor  the  VIC  20  conlomsan  e<ponsion  con 

nectot  so  vou  can  simultoneous^v  use  your  rrierrory  board,  etc) 


$39.95 


m        M     tk     ^'   MOW  Please  for  your  own  protec- 

li     il   #\  L   T-jc  DECT        tion  consider  the  MAE  (irsf 
l\#l^»l        'ntebil         before  you  buy  that  other 
I  V  1/      1^   FOR  LESS!      assembler.  We've  had 
numerous  customers  who  wasted  their  money  on  some  cheaper 
oltbrond  assembler  tell  us  how  much  better  the  MAE  is. 
The  most  powerful  Macro  AssemblerlEditor  available  tor  the 
Commodore  64  and  other  CBM-'PET  computers,  and  also  for 
the  ATARI  SOOiXL  and  Apple  linlE. 

MAE  includesan  Assembler,  Editor.  Word  Processor.  Relocoting 
Loader,  and  more  oil  (or  just  S59.95 

We  could  go  on  ond  describe  fhe  MAE  but  we  thought  you  would 
like  to  read  our  customers' comments.  The  following  are  actual 
unedited  comments  from  correspondence  about  the  MAE: 

'Excellent  Development  "My  Compliments  to  Carl  Moser 

Ftickoge"  and  EHS" 

'Compares  to  DEC  and  INTEL  "     "It  is  a  superb  program 
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PROGRAMMING  THE  Tl 


C.  Pegeno 


The  Singing  Computer 


If  a  computer  can  speak  and  can  play  music,  can 
it  sing?  Tills  month,  I'll  try  to  make  the  TI  sing. 
First,  to  make  the  computer  talk  you  need  the  TI 
Speech  Synthesizer,  a  small  peripheral  device 
that  attaches  to  the  right  side  of  the  console.  To 
use  the  speech  synthesizer,  you  also  need  a  com- 
mand module  that  is  made  to  provide  speech. 

To  do  your  own  programming  with  speech, 
you  also  need  a  command  module.  Right  now 
the  modules  available  are  Speech  Editor,  TI  Ex- 
tended BASIC,  and  Terminal  Emulator  II.  Termi- 
nal Emulator  II  is  the  easiest  to  work  with 
because  you  can  type  any  word  in  and  the  com- 
puter will  pronounce  it  phonetically.  Speech  Edi- 
tor and  Extended  BASIC  use  CALL  SAY 
commands  and  have  limited  vocabularies. 

I've  had  several  letters  from  people  wonder- 
ing why  certain  phrases  don't  work.  To  make  the 
computer  say  a  phrase,  such  as  Texas  In- 
struments, use  the  number  sign  (SHIFT  3)  before 
the  phrase.  For  example,  CALL  SAY  ("#Texas 
Instruments"). 

Unlimited  Speech 

A  bit  of  history  here — the  original  speech  syn- 
thesizer was  designed  to  use  the  words  in  the 
Speech  Editor  and  Extended  BASIC  lists.  Inserts 
were  going  to  be  made  available  that  had  dif- 
ferent vocabularies  (that's  why  some  of  the 
speech  synthesizers  have  a  lift-up  lid).  Then  the 
Terminal  Emulator  II  command  module  was  in- 
vented, which  provides  unlimited  speech,  and  in- 
serts to  the  synthesizer  were  no  longer  needed. 
Extended  BASIC  has  also  gone  through  at 
least  one  revision,  i  assume  there  are  very  few  of 
the  original  version  around  because  most  users 
exchanged  the  original  module  for  the  second 
version  as  soon  as  they  could.  The  first  version 
did  not  support  repeating  keys  and  was  notorious 
for  "locking  up"  the  computer.  There  w^ere  also 


some  problems  with  using  IMAGE  statements. 

The  Terminal  Emulator  II  command  module 
has  a  dual  purpose.  In  fact,  it's  called  Terminal 
Emulator  II  because  it  is  used  to  make  your  TI 
act  as  a  terminal  for  another  computer.  For  tele- 
communications you  can  use  your  TI-99/4A  with 
an  RS-232  Interface  and  a  telephone  modem, 
plus  the  Terminal  Emulator  11  command  module. 

Pages  33-42  of  the  Terminal  Emulator  II 
instruction  manual  describe  how  to  use  speech. 
There  are  two  main  ways  to  use  speech,  "text-to- 
speech"  and  allophone  speech.  I  use  the 
text-to-speech  method  because  all  you  have  to  do 
is  spell  the  text  phonetically.  The  allophone 
speech  can  be  more  exact  because  you  can  spec- 
ify certain  sounds.  The  manual  contains  a  list  of 
allophone  numbers  with  their  sounds  plus  a  few 
sample  programs  of  how  to  use  this  method. 

Singing  Requires  Experimentation 

Working  with  speech  in  a  program  takes  a  lot  of 
experimentation.  First,  you  need  to  try  different 
spellings  to  get  the  computer  to  properly  say 
what  you  want  it  to  say.  Then  you  can  try  dif- 
ferent inflection  symbols,  ',  _,  and  >.  These  are 
used  to  change  inflections  and  stress  points,  but 
they  can  also  change  the  tone  of  the  voice.  You 
can  also  add  different  pause  symbols  for  different 
sounds  and  contours.  These  symbols  are  the 
comma,  period,  semicolon,  colon,  exclamation 
point,  question  mark,  and  space.  Finally,  you  can 
alter  the  pitch  and  slope — this  is  what  I  do  to 
make  the  computer  sing. 

To  create  speech,  you  need  the  following 
statement: 

OPEN  #l:"SPEECH",OUTPUT 

You  may  use  any  number  after  the  number  sign, 
just  as  in  opening  other  types  of  files.  Later, 
when  you  want  the  computer  to  speak,  just  use  a 
command  such  as 
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PRINT  #1;"MY  NAME  IS  SINNDY." 

The  pitch  is  how  high  or  low  the  voice 
sounds  and  can  be  a  number  from  0  through  63. 
Zero  is  a  whisper,  1  is  the  highest  pitched  voice, 
and  63  is  the  lowest  pitched  voice.  The  slope  is 
the  rate  at  which  the  pitch  changes  in  a  spoken 
phrase.  The  slope  may  be  a  number  from  0 
through  255.  For  the  best  results,  the  manual 
recommends  a  slope  3.2  times  the  pitch.  There 
are  certain  combinations  of  pitch  and  slope  that 
will  not  be  accepted.  The  default  values  of  pitch 
and  slope  are  43  and  128.  To  change  the  pitch 
and  slope,  use  the  format  / fxx  yyy  where  xx  is 
the  pitch  period  and  yyy  is  the  slope  level.  There 
must  be  a  space  between  the  numbers.  An  ex- 
ample in  a  program  statement  would  be: 

PRINT  #l:"//30  96" 

Changing  The  Pitch 

The  following  is  a  sample  program  that  illus- 
trates how  the  pitch  and  slope  change  the  sound 
of  the  voice.  I  am  trying  different  pitches  from  0 
to  63  (and  STEPping  by  2  so  it  won't  take  for- 
ever). The  slope  S  is  calculated  by  taking  the 
recommended  factor  of  3,2  times  the  pitch. 
Remember,  you  may  try  different  slopes  if  you 
prefer.  B$  combines  the  double  slashes  with  the 
pitch,  a  space,  and  the  slope,  so  line  170  can  set 
the  pitch  and  slope.  Line  180  then  speaks  the 
phrase. 

100  REM  PITCH  AND  SLOPE 

110  CALL  CLEAR 

120  OPEN  #S: "SPEECH" , OUTPUT 

130  FOR  P=0  TO  63  STEP  2 

140  S=INT (P*3. 2+, S) 

150  B*=" //"StSTR*  <P)  Sc"  "SiSTR^tS) 

160  PRINT  B* 

B« 

"TRY  THIS  TEST." 


170  PRINT  « 

180  PRINT  # 

190  NEXT  P 

200  END 


Since  other  statements  can  be  executed  while 
a  sound  is  playing,  you  can  play  a  tone,  then  say 
a  word.  By  changing  the  pitch  and  slope  numbers 
for  the  speech,  you  can  make  the  voice  go  higher 
or  lower,  and  program  a  singing  computer. 

Remember — I  mentioned  that  working  with 
speech  involves  a  lot  of  experimentation.  Singing 
takes  even  more  time  because  there  are  many 
parameters  that  vary  with  each  new  tone.  After 
you  change  the  pitch  and  slope,  you  can  try  the 
inflection  symbols  and  the  punctuation  marks  to 
vary  the  voice  even  more.  The  TI  with  Terminal 
Emulator  II  can  really  create  synthesized  speech 
that  sounds  pretty  good. 

Teaching  The  ABCs 

"Alphabet  Song"  illustrates  simple  singing  on 
the  computer.  However,  I  did  not  spend  a  lot  of 
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time  fiddling  with  the  program  and  trying  dif- 
ferent things  to  make  the  speech  sound  better. 
You  may  want  to  try  spelling  out  the  letter  as  a 
word,  and  you  may  want  to  add  the  inflection 
symbols  and  punctuation  marks.  I  used  different 
pitches  for  the  singing,  but  kept  the  slope  num- 
bers just  3.2  times  the  pitch.  You  could  vary 
these  numbers  to  get  a  more  human  sound  and  a 
better  singing  voice. 

My  little  boy  has  played  a  lot  with  the  Early 
Learning  Fun  command  module.  One  section 
teaches  the  letters  of  the  alphabet,  and  the  child 
finds  the  letters  on  the  keyboard.  My  son  is  quite 
proficient  at  this  and  knows  the  names  of  the  let- 
ters, but  I  realized  he'd  learned  them  in  a  ran- 
dom order.  Most  children  learn  the  alphabet 
from  the  ABC  song,  but  I  had  never  sung  it  to 
him.  I  decided  I'd  let  the  computer  sing  it  to  him. 

Lowercase  letters  are  used  in  the  program 
because  my  son  already  knows  the  capital  letters 
and  really  needs  a  little  more  practice  with  the 
lowercase  letters.  Schoolteachers  often  recom- 
mend learning  the  lowercase  letters  right  along 
with  the  capital  letters,  and  all  beginning  reading 
is  in  lowercase  letters. 

Lines  120-200  define  the  lowercase  letters.  If 
you  have  saved  the  lowercase  letters  program 
from  my  August  1983  column,  you  can  load  that 
program,  delete  the  PRINTing  lines,  then  con- 
tinue typing  this  program.  If  you  have  any  prob- 
lems running  this  program,  the  most  likely  cause 
is  in  typing  the  data  in  lines  160-200.  Your 
actual  error  message  will  cite  line  130  or  line 
140,  but  those  lines  are  dependent  upon  the 
DATA  statements.  Do  not  type  a  comma  at  the 
end  of  a  line. 

Extra  Option 

To  hear  the  singing  you  will  need  the  Tl  Speech 
Synthesizer  and  the  Terminal  Emulator  II  com- 
mand module.  When  you  turn  on  the  computer 
with  the  module  plugged  in,  press  any  key  to 
start,  then  press  1  for  TI  BASIC  and  program  as 
usual.  To  run  the  program  without  speech,  you 
can  select  option  2  when  the  program  starts.  In 
this  case,  you  don't  need  the  module  or  the 
speech  synthesizer, 

If  you  choose  no  speech,  the  variable  SP  will 
equal  2.  All  the  IF  SP  =  2  THEN  ...  statements 
skip  over  commands  that  require  the  Terminal 
Emulator  II  module.  The  CALL  SOUND  state- 
ments play  the  tune.  I  used  only  one  note;  you 
may  add  accompaniment  if  you'd  like.  After  the 
tone  is  played,  the  letter  is  sung.  The  CALL 
HCHAR  or  CALL  VCHAR  statements  then  place 
the  letter  on  the  screen. 

Lines  1880-1910  wait  after  the  song  is  over 
until  the  user  presses  ENTER,  then  the  song  is 
repeated. 


If  you  prefer  to  save  typing  time  and  effort, 
you  can  obtain  a  copy  of  this  program  by  send- 
ing a  $3  copying  fee,  a  blank  cassette  or  diskette, 
and  a  stamped,  self-addressed  mailer  to: 

C.  Regena 
P.O.  Box  1502 
Cedar  City,  UT  84720 

Please  specify  the  name  of  the  program  and  that 
you  need  the  TI  version. 

Alphabet  Song 


100 

1  10 

120 
130 
140 
150 

16  lit 


170 


180 


190 


200 

211-1 
220 
230 
240 
250 

260 
270 
280 
2<?0 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


REM  ALPHABET  SONG 

CALL  CLEAR 

FOR  C  =  '?7  TO  122 

READ  C* 

CALL  CHAR(C,C*) 

NEXT  C 

DATA  30438181818143 

1B1C2BC,3C4280B0B0B 

0  1  0 1 0  I  0  1  0 1  , 3C428 1 FF 

DATA  0  6  090808080808 

1 22  1C, 0000808080808 

0808080808837 , 8890A 

DATA  08080808080808 

2020202,  BCC2B18  1818 

81818  1 423C, 808080B0 

0  1  0  1 

DATA  BCC28ia080a080 

02423C, 00000808080B 

181814  3  3  0,414122221 

888B5050202 

DATA  824428  10284482 

04 , 7F020408 1 020407F 

T  =  600 

TAB (8) ; "ALPHA 
:  :  :  : "CHOOS 
:  : " 1  WITH  S 
: "TERMI NAL  EM 


PR  INT 

PRINT 

PRINT 

PRINT 

UIRED" 

PRINT  :   :  "2 

CALL  KEY (0, K 

IF   ( K  <  4  9 )  +  <  K 

SP=K-48 

CALL  CLEAR 

IF  SP=2  THEN 


3D, eCC281BlB 
0423C, 000001 
8030423C 
3E, 0  101010  14 
08, 00000008. 
0C0A09088S4 
08, 78S402020 
1B1S1,3C4281 
8  03, 01010101 

8, 3C42403C02 
7F08, 8181818 
4140808, 0404 

82, 101020204 


BET  SONG" 
E:  '■ 

PEECH" 

ULATOR  2  REQ 


NO  SPE 
S) 
-50) THE 


ECH"  : 
N  270 


340 


OPEN  #1: 
PRINT  #1 


SPEECH" 
"  /  /  4  3  1  : 


262, 
370 


3,97) 


2) 


CALL  SOUND (T 

IF  SP=2  THEN 

PRINT  #1 : "A" 

CALL  HCHAR(3 

CALL  SOUND tT, 262, 4) 

IF  SP=2  THEN  410 

PRINT  #1 : "B" 

CALL  HCHAR (2, 7, 104) 

CALL  HCHAR C3, 7, 98) 

CALL  SOUNDtT, 

IF  SP=2  THEN 

PRINT  »l;"//30 

PRINT  «i:"C" 

CALL  HCHAR(3, 

CALL  SOUND (T, 392, 4) 

IF  SP=2  THEN  510 

PRINT  «1; "D" 

CALL  HCHAR(2, 15, 100 

CALL  HCHAR(3, 15,97) 

CALL  SOUND(T,440,2) 

IF  SP=2  THEN  570 


OUTPUT 

9" 
2) 


;92 

470 
96" 


1  1  , 99) 


550  PRINT  »l:"//27  86" 

560  PRINT  #1 : "E" 

570  CALL  HCHAR(3, 19, 101) 

580  CALL  SOUND (T, 440, 4) 

590  IF  SP=2  THEN  610 

600  PRINT  #1 ; "F" 

610  CALL  HCHAR<2, 23, 102) 

620  CALL  HCHAR <3, 23, 108) 

630  CALL  SOUND (T»2, 392, 2) 

640  IF  SP=2  THEN  670 

650  PRINT  ttl:"//30  96" 

660  PRINT  «1:"G" 

670  CALL  HCHAR(3,27,97) 

680  CALL  HCHAR (4, 27, 103) 

690  CALL  SOUND <T, 349, 2) 

700  IF  SP=2  THEN  730 

710  PRINT  ttl;"//34  109" 

720  PRINT  «I : "H" 

730  CALL  HCHAR (7, 6, 104) 

740  CALL  HCHAR (8, 6, 1 10) 

750  CALL  SOUND <T, 349, 4) 

760  IF  SP=2  THEN  780 

770  PRINT  #1  :  ■•  I  " 

780  CALL  HCHAR(7, 10, 105) 

790  CALL  HCHAR (8, 10, 108) 

800  CALL  SOUND ( T, 330, 2) 

810  IF  5P=2  THEN  840 

820  PRINT  #l:"//36  115" 

830  PRINT  #1  :  ■■  J  " 

S40  CALL  HCHAR  (7,  14,  105) 

850  CALL  HCHAR  (8,  14,  108) 

860  CALL  HCHAR (9, 1 4, 106) 

870  CALL  SOUND (T, 330,4) 

880  IF  SP=2  THEN  910 

890  PRINT  #1 : "K" 

900  PRINT  ttl:"//39  125" 

910  CALL  HCHAR (7, 18, 104) 

920  CALL  HCHAR  (8,  18,  107) 

930  CALL  SOUND  (T/2,  294.  1 ) 

940  IF  SP=2  THEN  960 

950  PRINT  #1 : "L" 

960  CALL  VCHAR  (  12, a,  108, 2) 

970  CALL  SOUND  (T/2,  294,  3) 

980  IF  SP=2  THEN  1000 

990  PRINT  #1 : "M" 

1000  CALL  HCHAR ( 13, 12, 1 10) 

1010  CALL  HCHAR ( 13, 13, 109) 

1020  CALL  SOUND <T/2, 294, 2) 

1030  IF  SP=2  THEN  1050 

1040  PRINT  #1:"N" 

1050  CALL  HCHAR ( 13, 17, 1 10) 

1060  CALL  SOUND (T/2, 294, 4) 

1070  IF  SP=2  THEN  1090 

1080  PRINT  #1 : "0" 

1090  CALL  HCHAR ( 13, 21  ,  1  I  1  ) 

1100  CALL  SOUND (T«2, 262, 2) 

1110  IF  SP=2  THEN  1140 

1120  PRINT  #l:"//43  128" 

1 130  PRINT  ttl : "P" 

1140  CALL  HCHAR ( 13, 25, 98) 

1150  CALL  HCHAR ( 14, 25, 1 12) 

1160  CALL  SOUND (T, 392, 2) 

1170  IF  SP=2  THEN  1200 

1180  PRINT  #l:"//30  96" 

1 190  PRINT  «1 ; "Q" 

1200  CALL  HCHAR ( 18, 4, 97) 

1210  CALL  HCHAR ( 19, 4, 1 13) 

1220  CALL  SOUND (T, 392, 4) 

1230  IF  SP=2  THEN  1250 

1240  PRINT  #1 : "R" 

1250  CALL  HCHAR ( 18, 8, 1 14) 
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1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

16B0 

1690 

1700 

1710 

1720 

1730 

1740 

1  750 

1760 

1770 

17B0 

1790 

1800 

1B10 

1820 

1830 

1840 

1850 

1S60 

1870 

iaS0 

1890 

1900 

1910 

1920 


CALL  SOUND <T*2, 349, 2) 
IF  SP=2  THEN  1300 
PRINT  «1 : "//34  109" 
PRINT  #1 : "S" 
CALL  HCHAR ( 18, 12, 1 15) 
CALL  SOUND (T, 330, 2) 
IF  SP=2  THEN  1350 
PRINT  #1:  ■■//36  115" 
PRINT  #1 : "T" 
CALL  HCHAR < 17, 16, 1 16) 
CALL  HCHAR< 18, 16, 108) 
CALL  SOUND <T, 330, 4) 
IF  SP=2  THEN  1400 
PRINT  «1:"U" 
CALL  HCHARC 18,20, 117) 
CALL  S0UND(T*2,294,2) 
IF  SP=2  THEN  1460 
PRINT  *1: "//39  125" 
PRINT  #1: "V" 
PRINT  #1 : "//30  96" 
CALL  HCHAR C 18, 24, 1 18) 
CALL  SOUND (T, 392, 2) 
IF  SP=2  THEN  1500 
PRINT  #1 : "DUB" 
CALL  HCHAR (23,  10,  1  IS) 
CALL  HCHAR (23, 1 1 , 1 19) 
CALL  SOUND (T, 392, 4) 
IF  SP=2  THEN  1550 
PRINT  #1 : "BL" 
CALL  SOUND CT*2, 349, 2) 
IF  SP=2  THEN  1590 
PRINT  #1 : "//34  109" 
PRINT  #1 : "U" 
CALL  SOUND <T, 330, 2) 
IF  SP=2  THEN  1630 
PRINT  «1 ; "//36  115" 
PRINT  #1  :  "  X  " 
CALL  HCHAR (23, 15, 120) 
CALL  SOUND (T, 330, 4 ) 
IF  SP=2  THEN  1670 
PRINT  ttl : "Y" 
CALL  HCHAR (23,  19,  1  IB) 
CALL  HCHAR (24, 19, 121 ) 
CALL  SOUND (T«2, 294, 2) 
IF  SP=2  THEN  1730 
PRINT  #1 : " //39  125" 
PRINT  #1  :  "!'• 
CALL  HCHAR (23, 23, 122) 
SOUND (T, 262, 2) 
SOUND (T, 262, 4) 
SOUND (T, 392, 2) 
SOUND (T, 392, 4) 
SOUND (T, 440, 2) 
SOUND (T, 440, 4) 
SOUND (T«2, 392, 2) 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

IF  K< 

CALL 

GOTO 

END 


SOUND (T, 
SOUND (T . 


:49. 

549. 


SOUND (T, 33S. 


SOUND (T, 330, 
SOUND (T, 294. 
SOUND (T, 294, 
SOUND (T«4 , 262 
KEY (0, K, S> 
>13  THEN  1880 
CLEAR 
330 


2) 
4) 
2) 
4) 
2) 
4) 


2) 


118     COMP1ITB     August  1964 


For  the 
Commodore  64 


New   ^OO 
tow  price  vO  JF 

Telecomputing 


with  a  difference! 

SuperTerm  —  the  only  software  that  communicates  with 
them  all!  Information  networks  such  as  CompuSen/e, 
business  and  university  mainframes;  free  hobby  bulletin 
boards. 

Professionals  and  students:  SuperTerm's  VT102  emulation 
gets  you  on-line  in  style.  Advanced  video  features,  graphics, 
full-screen  editing,  80/132  column  through  sidescrolling, 
extended  keyboard  —  perfect  for  EDT,  DECMall,  etc.  Even 
download  your  workfiles  and  edit  off-line!  Full  printer  and 
editor  support;  other  emulations  available. 

Researchers  and  writers:  SuperTerm  s  built-in  text  editor 
helps  you  create,  edit,  print,  save,  send  and  receive  text 
files  —  articles,  stories,  reports,  inventories,  bibliographies  —  in 
short,  it's  your  Information  work  station.  Access 
CompuServe.  Dow  Jones  Information  Network, 
Dialog/Knowledge  Index,  Western  Union's  Easylrnk,  The 
Source,  and  many  more.  Optional  Sprinter  accessory  saves 
printing  time  and  5  (see  below). 

Computer  hobbyists;  Join  in  the  fun  of  accessing  hundreds 
of  free  bulletin  board  systems  |BBSJ  for  Commodore,  Apple. 
TRS-80,  etc.  Text  mode  with  all  BBS  systems;  up/downfoading 
with  Commodore  BBS  systems  (Punter  protocol|.  Special 
protocol  for  up/downloading  with  other  SuperTerm  owners. 
Popular  "redial-(f-busy"  feature  for  use  with  automodems. 


Get  the  information  you  need,  for  business  or  for  fun, 
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64  Searcher 

John  Krause,  Assistant  Technical  Editor 
and  Michcel  Jocobi 


"64  Searcher"  is  a  time-saving  utility  that  searches 
through  your  BASIC  program  and  locates  any 
character  or  string  of  characters  that  you  choose. 
(This  is  a  64  version  of  VIC  searcher  that  appeared 
in  COMPUTE!,  February  1983.) 


When  you're  working  on  a  long  BASIC  program, 
it  pays  to  plan  ahead.  But  it  seems  that  no  matter 
how  hard  you  try,  you  can't  keep  track  of  every- 
thing in  your  program.  Can  I  use  H  to  store  the 
high  score,  or  is  that  variable  already  being  used 
for  something  else?  Where  is  this  subroutine 
called  from?  You  probably  end  up  searching  for  a 
certain  number  or  word  hidden  among  scores  of 
program  lines. 

"64  Searcher"  allows  you  to  spend  less  time 
searching  and  more  time  programming.  You 
simply  give  it  the  string  of  characters  to  search 
for  and  it  tells  you  the  numbers  of  all  lines  in 
which  the  string  appears.  It  can  search  100  lines 
faster  than  it  takes  you  to  search  one.  It's  fast  be- 
cause it's  written  in  machine  language.  But  you 
don't  have  to  know  machine  language  to  use  it. 

Just  LOAD  it  and  RUN  it,  then  LOAD  your 
BASIC  program.  64  Searcher  doesn't  use  any 
BASIC  memory,  so  you  can  work  on  your  pro- 
gram normally.  You  can  use  64  Searcher  at  any 
time  by  typing  0  followed  by  the  string  you  want 
to  find  enclosed  within  either  slashes  or  quotes, 
and  hitting  RETURN.  This  stores  the  string  in 
your  program  as  line  0.  If  your  program  already 
has  a  line  0,  you  will  have  to  change  that  line 
number  because  the  string  must  be  the  first  line 
in  the  program. 

Then  type  5YS49152  and  hit  RETURN.  In- 
stantly, you  should  see  numbers  appear  on  the 
screen.  These  are  the  line  numbers  that  contain 
the  string  you  specified.  If  no  match  is  found,  no 
numbers  will  be  printed.  If  the  string  occurs 
more  than  once  in  a  line,  the  line  number  is 


printed  only  once. 

Because  BASIC  commands  are  stored  dif- 
ferently from  other  characters  in  a  program,  there 
are  two  ways  of  specifying  the  search  string.  If 
the  string  is  enclosed  within  slashes,  BASIC  com- 
mands are  recognized  as  such.  If  the  string  is 
within  quotes,  it  will  be  treated  as  a  literal  string 
of  characters. 

For  example,  to  find  the  BASIC  statement 
AND,  line  0  should  be: 
0  /AND/ 

After  entering  SYS49152,  64  Searcher  will  find 
the  AND  in  this  line: 

10  IF  X  AND  Y  THEN  50 

but  not  in  this  line: 
20  PRINT  "X  AND  Y" 

To  find  the  AND  in  line  20  above,  use  quotes  in- 
stead of  slashes. 

Remember  to  delete  line  0  before  saving  or 
running  your  program. 

64  Searcher 

Refer  to  \he  "Automatic  Proofreader"  article  before  typing  this 
program  in. 

10  FORI=49152T049255 :READJ:K=K+J:POKEI, J; 
NEXT  :rem  66 

20  IFK<>16302THENPRINT"ERROR  IN  DATA  STAT 
EMENTS":STOP  : rem  117 

30  PRINT" {cLR}SYS49152  TO  SEARCH"  : rem  36 
100  DATAl 69, 1,1 33, 2 5 I, 169, 8, 133, 25 2, 160,0 

,177,251,56,229,251,56         : rem  80 
110  DATA23 3, 5, 141, 104, 192, 233, 2, 141, 105,1 

92,160,0,177,251,170,200      : rem  142 
120  DATAl 7 7, 251,240,67, 133 , 252 , 134, 251 , 16 

0,0,177,251,56,229,251,170     ; rem  17 
130  DATA202, 134, 2, 198, 2, 165, 2, 205, 104, 192 

,48,222,133,253,173,105       : rem  110 
140  DATA19  2, 13  3,254,164,253,177,251,164,2 

54,217,5,8,208,229,198,253     :rem  45 
150  DATA198,254,208,2  39, 160,2,177,251,170 

,200,177,251,32,205,189,169    : rem  88 
160  DATA32,32, 210 , 255 , 76 , 26 , 192 , 96 

:rem  190  © 
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MACHINE  LANGUAGE 


Jim  Butterfield,  Associate  Editor 


Decimal  Mode 

Part  2 


Decimal  mode  is  quite  useful  in  arithmetic 
programming  such  as  game  scoring  and  simple 
accounting.  It  has  other  uses,  too — for  example, 
in  converting  binary  numbers  to  decimal  for  out- 
put. It  also  has  certain  bugs,  pitfalls,  and 
conventions. 

Bugs  And  Pitfalls 

Don't  depend  on  the  Zero  and  Negative  (Z  and 
N)  flags  immediately  following  a  decimal  addi- 
tion (ADC)  and  subtraction  (SBC).  If  you  really 
need  them,  perform  a  data  transfer  (for  example, 
TAX)  to  insure  the  flags  are  set  correctly.  The 
Carry  flag  is  correct  and  has  its  usual  meaning 
after  the  addition  or  subtraction. 

Remember  that  decimal  mode  uses  only  the 
ADC  and  SBC  instructions.  The  increment  and 
decrement  instructions  (INX,  INY,  INC,  DEX, 
DEY,  DEC)  behave  in  binary;  and  comparisons 
(CMP,  CPX,  CPY)  are  based  as  usual  on  binary 
values. 

Programmers  using  machines  with  interrupt 
sequences  must  be  careful  of  decimal  mode.  The 
interrupt  can  clear  decimal  mode  with  CLD 
(Clear  Decimal);  when  the  interrupt  code  finishes 
with  RTl,  the  status  register  will  be  restored  and 
decimal  mode  will  be  reinstated  if  it  was  in  effect 
before.  On  Commodore  machines,  the  interrupt 
sequences  do  not  include  a  CLD  instruction;  in 
this  case,  the  interrupt  should  be  locked  out 
using  a  SEl  (Set  Interrupt  Disable)  before  going 
into  decimal  mode. 

The  VlC-20  and  Commodore  64  have  a  use- 
ful feature:  Registers  may  be  preset  before  a  SYS 
call.  Addresses  $030C,  $030D,  $030E,  and  $030F 
(decimal  780  to  783)  contain  values  that  will  be 
transferred  to  registers  A,  X,  Y,  and  the  status 
register  at  the  time  of  a  SYS.  When  the  machine 
language  program  returns  to  BASIC,  these  same 
addresses  will  contain  the  contents  of  the  respec- 
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tive  register.  In  other  words,  we  could  POKE 
780,65  followed  by  a  SYS;  and  the  machine  lan- 
guage program  would  start  running  with  a  value 
of  $41  (decimal  65)  in  the  A  register. 

What  does  this  mean  to  decimal  mode? 
Here's  the  possible  danger:  If  the  wrong  value  is 
contained  in  address  783,  it  will  be  transferred  to 
the  status  register  at  the  time  of  a  SYS.  An  un- 
controlled value  might  set  decimal  mode,  or  even 
worse,  set  the  interrupt  disable  flag.  To  make 
things  worse,  these  flags  will  not  be  restored 
when  we  return  to  BASIC.  They  will  be  neatly 
stored  in  783,  but  BASIC  will  resume  with  the 
flags  in  an  unworkable  state.  There  goes  BASIC. 

It's  probably  wise  to  leave  address  783 
alone.  If  it  worries  you,  POKE  783,0  before 
giving  a  SYS  command. 

Conventions 

We  can  handle  fractions  in  decimal  arithmetic. 
It's  best  to  do  this  by  using  an  "assumed  decimal 
point."  In  other  words,  we  will  work  dollar  val- 
ues as  an  integer  number  of  pennies,  and  kilome- 
ters as  integer  values  of  meters.  It's  easier  to  stick 
in  the  decimal  point  at  output  time. 

Negative  numbers  are  a  little  tricky.  We  can 
use  a  scheme  similar  to  that  in  binary  numbers: 
That  is,  the  "high  bit"  of  a  number  represents 
the  sign.  This,  however,  splits  positive  and  neg- 
ative unevenly:  A  two-byte  number  will  range 
from  a  low  of  -2000  (value  8000)  up  to  +7999. 
If  you  use  this  method,  don't  forget  that  the  N 
flag  isn't  dependable  after  an  addition  or  subtrac- 
tion and  that  you'll  need  to  take  an  extra  step  to 
test  the  flag. 

A  better  technique  is  called  "tens  com- 
plement" and  it's  been  used  in  many  household 
devices  such  as  counters  on  tape  recorders.  We 
understand  that  a  reading  of  9994  really  means 
—  6.  If  we  want  to  use  this  technique,  we  might 


choose  to  try  to  split  positive  and  negative  more 
evenly,  so  that  a  two-byte  number  would  range 
from  -5000  to  +4999.  In  this  case,  we  must 
remember  not  to  use  the  N  bit,  but  instead  com- 
pare the  high  byte  to  50  hex.  If  it  is  higher,  the 
number  is  negative. 

If  "tens  complement"  is  used,  remember  to 
invert  a  negative  number  at  the  time  of  printing. 
I  find  that  the  easiest  way  to  do  this  is  to  sub- 
tract it  from  0000  so  that  9993  becomes  0007. 

Multiplication 

To  multiply  two  decimal  numbers  we  are  almost 
forced  to  resort  to  repeated  addition.  As  we  go 
from  one  decimal  digit  to  the  next,  we  must 
"shift"  either  the  multiplier  or  the  product:  This 
is  a  binary  shift-four-places.  It's  awkward  and  we 
can  quickly  see  why  binary  is  preferred. 

There's  an  elegant  way  to  multiply  a  decimal 
number  by  a  binary  value,  or  by  a  fixed  amount. 
We  can  use  what  I  call  a  "decimal  shift." 

A  binary  shift  multiplies  a  number  by  two. 
We  can  do  the  same  thing  with  a  decimal  num- 
ber by  adding  it  to  itself.  Thus,  to  multiply  by 
two  we  add  the  number  to  itself  (in  decimal 
mode).  To  multiply  by  four  we  multiply  by  two, 
twice.  To  multiply  by  five,  we  multiply  by  four 
and  add  the  original  number. 

A  Multiplication  Example 

We'll  have  the  computer  (PET,  VIC,  or  64)  out- 
put a  table  of  multiples  of  the  number  5,  (Two 
would  be  too  easy.) 


;  set  value  to  one 

033C  A2 

01 

LDX 

#$01 

033E  8E 

BO 

03 

STX 

LOW 

0341  CA 

DEX 

0342  8E 

Bl 

03 

STX 

MED 

0345  8E 

B2 

03 

STX 

HIGH 

0348  8E 

B6 

03 

STX 

COUNT 

;  copy  the  number 

034B  AO 

02 

LOOP 

LDY 

#$02 

034D  B9 

BO 

03 

CF 

LDA 

LOW,Y 

0350  99 

B3 

03 

STA 

COPY,Y 

0353  88 

DEY 

0354  10 

F7 

BPL 

CP 

;  multiply  by  four 

0356  A2 

02 

LDX 

#$02 

0358  18 

FP 

CLC 

0359  AO 

FD 

LDY 

#$FD 

035B  78 

SEI 

035C  F8 

SED 

035D  B9 

B3 

02 

TP 

LDA 

HIGH-255,Y 

0360  79 

B3 

02 

ADC 

HIGH-255,Y 

0363  99 

B3 

02 

STA 

HIGH-255,Y 

0366  C8 

INY 

0367  DO 

F4 

BNE 

TP 

0369  CA 

DEX 

036A  DO 

EC 

BNE 

FP 

;add 

[  original  value 

036C  AO 

FD 

LDY 

#$FD 

036E  18 

CLC 

036F  B9 

B3 

02 

AP 

LDA 

HIGH-255,Y 

0372  79 

B6 

02 

ADC 

COPY-253,Y 

0375  99 

B3 

02 

STA 

HIGH-255,Y 

0378  C8 

INY 

0379  DO 

F4 

BNE 

AP 

037B  D8 

CLD 

037C  58 

CLl 

;  print 

the  number 

037D  AO 

02 

LDY 

#$02 

037F  B9 

BO 

03 

LP      LDA 

LOW,Y 

0382  4A 

LSR 

A 

0383  4A 

LSR 

A 

0384  4A 

LSR 

A 

0385  4A 

LSR 

A 

0386  09 

30 

ORA 

#$30 

0388  20 

D2 

FF 

JSR 

$FFD2 

038B  B9 

BO 

03 

LDA 

LOW,Y 

039E  29 

OF 

AND 

#$0F 

0390  09 

30 

ORA 

#$30 

0392  20 

D2 

FF 

JSR 

$FFD2 

0395  88 

DEY 

0396  10 

E7 

BPL 

LP 

;  print 

RETURN  and  loop 

0398  A9 

OD 

LDA 

#$0D 

039A  20 

D2 

FF 

JSR 

$FFD2 

039D  EE 

B6 

03 

INC 

COUNT 

03A0  AE 

B6 

03 

LDX 

COUNT 

03A3  EO 

07 

CPX 

#$08 

03A5  DO 

A4 

BNE 

LOOP 

03A7  60 

RTS 

Note  the  peculiar  addressing  in  lines  035D  to 
0363  and  again  in  036F  to  0375.  We  need  to 
have  a  positive-incrementing  index  (in  this  case 
Y),  since  we  must  start  our  addition  at  the  low- 
order  value,  LOW,  and  work  upwards.  We  can- 
not use  the  obvious  method  of  starting  at  zero 
and  testing  to  see  when  we  have  done  all  three 
values,  because  we  want  the  carry  flag  to  be  pre- 
served; CPY  (Compare  Y)  would  destroy  the  pre- 
vious value  of  the  carry  and  our  addition 
wouldn't  work  right. 

If  you'd  rather  enter  the  program  from 
BASIC,  here's  the  same  program  in  DATA  state- 
ments. It  will  work  on  all  Commodore  machines. 
Multiples  Of  5 

100  DATA  162,1,142,176,3,202,142,177,3 
110  DATA  142,178,3,142,182,3,160,2 
120  DATA  105,176,3,153,179,3,136,16,247 
130  DATA  162,2,24,160,253,120,248,185,179 
#  2 

140  DATA  121,179,2,153,179,2,200,208,244, 
202 

150  DATA  208,236,160,253,24,185,179,2,121 
,182,2 

160  DATA  153,179,2,200,208,244,216,88,160 

170  DATA  185,176,3,74,74,74,74,9,48,32,21 
0,  255 

180  DATA  185,176,3,41,15,9,48,32,210,255, 
136, 16 

190  DATA  231,169,13,32,210,255,238,182,3, 

174,182,3 
200  DATA  224,8,208,164,96 
300  FOR  J=828  TO  935 
310  READ  X:T=T+X 
320  POKE  J,X 
330   NEXT  J 

340  IF  TO  13479  THEN  STOP 
350  SYS  828  © 
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64  EXPLORER 


Lorry  Isaacs 


This  month  we  will  continue  our  look  at  printing 
characters  to  a  bitmapped  display.  Last  month 
we  looked  at  a  method  which  transferred  a 
character  dot  pattern  to  the  bitmapped  display. 
This  month  we  will  look  at  a  second  method, 
which  drains  the  characters. 

Printing  Bit  By  Bit 

With  the  appropriate  set  of  line  segments,  virtu- 
ally any  character  shape  can  be  drawn.  The 
characters  do  not  necessarily  have  to  look  like 
the  standard  ASCII  character  set.  In  addition, 
you  are  not  restricted  to  a  fixed  character  cell. 
Each  character  can  be  as  complex  and  as  large  as 
you  like.  For  this  flexibility,  you  do  lose  a  few 
advantages  offered  by  the  use  of  character  dot 
patterns.  (It  becomes  a  little  more  difficult  to 
print  in  reverse  video  and  will  likely  take  a  little 
longer  to  print  the  character  when  characters  are 
drawn  rather  than  transferred.) 

With  the  drawing  method,  we  will  need  to 
make  use  of  a  line-drawing  routine.  For  conven- 
ience, I  will  be  using  the  machine  language  line- 
drawing  routines  presented  in  the  May  issue  of 
COMPUTE!.  However,  for  use  in  the  example 
BASIC  program  which  follows,  almost  any  line- 
drawing  routine  will  suffice,  (The  one  found  in 
COMPUTEl's  earlier  "SuperBASIC  64"  program 
could  be  used  if  you  desire.  Some  minor 
modifications  to  the  BASIC  program  will  be  re- 
quired, though.) 

To  draw  a  given  character  in  the  bitmapped 
display,  we  will  need  some  data  to  define  how 
the  character  should  be  drawn.  Unlike  the  trans- 
fer method,  where  the  format  for  such  data  is  al- 
ready fixed,  here  we  have  total  freedom  to  define 
our  own  format.  The  format  must  specify  what 
line  segments  should  be  drawn  to  form  the 
characters.  This  means  that  the  data  must  define 
the  starting  and  ending  coordinates  of  each  line 
segment.  Another  thing  to  note  is  that  the  data 
will  need  to  define  these  coordinates  relative  to 
the  previous  coordinates.  By  specifying  the  next 
point  based  on  the  previous  point,  the  character 
can  be  drawn  anywhere  in  the  bitmapped  display. 

To  simplify  the  following  discussion,  I  will 
use  the  term  "vector"  to  refer  to  the  line  seg- 
ments which  make  up  a  character.  Also,  I  will 
use  the  term  "vector  string"  for  the  data  which 
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defines  how  to  draw  a  character. 

One  way  we  could  define  the  format  of  the 
data  in  the  vector  string  is  to  specify  each  vector 
with  two  pairs  of  relative  coordinates.  A  single 
byte  could  be  used  for  each  relative  coordinate, 
which  could  represent  a  value  from  127  to  —128. 
Thus,  four  bytes  would  be  required  for  each  vec- 
tor in  the  vector  string. 

Moving  Points 

As  I  mentioned  in  the  May  column,  I  prefer  to 
have  the  draw  function  continue  from  each  pre- 
vious endpoint.  This  eliminates  the  need  to  spec- 
ify a  new  beginning  point  every  time.  The  catch 
is  that  there  must  be  some  way  of  moving  the 
last  endpoint  without  drawing.  Assuming  we  de- 
fine a  way  of  moving  the  endpoint  for  our  vector 
string,  then  it  will  be  possible  to  specify  a  vector 
using  one  pair  of  relative  coordinates,  rather  than 
two.  For  this  to  be  an  advantage,  a  fair  percent- 
age of  the  vectors  would  need  to  draw  from  the 
end  of  the  previous  vector.  When  creating 
characters  from  vectors,  I  believe  this  will  gen- 
erally be  true. 

If  the  characters  are  not  going  to  be  that 
large,  there  is  another  phenomenon:  Most  of  the 
vectors  will  be  fairly  short.  Assuming  they  are 
typically  short  enough,  we  could  save  more  bytes 
by  using  one  byte  to  specify  a  vector.  The  byte 
could  be  split  into  an  upper  and  lower  four  bits, 
with  each  half  able  to  represent  a  relative  co- 
ordinate of  7  to  —8.  This  may  not  seem  like  very 
much,  but  if  the  vector  isn't  too  long  to  be  repre- 
sented by  two  of  these  bytes,  we  haven't  lost 
anything. 

Vector  Bytes 

This  isn't  the  only  way  to  use  a  single  byte  to 
specify  a  vector.  The  byte  could  be  split  into  two 
parts  so  that  one  part  specifies  a  direction  and 
the  other  a  distance.  The  direction  in  this  case 
would  most  likely  be  a  multiple  of  45  degrees. 
This  actually  works  quite  well  for  drawing 
characters.  However,  I  will  go  with  the  format  of 
putting  relative  coordinates  into  the  byte.  I  will 
refer  to  such  bytes  as  "vector  bytes"  in  the  dis- 
cussion which  follows. 

Given  that  the  vector  has  a  limited  range, 
we  will  need  to  define  some  way  of  invoking 


exceptions  to  handle  the  times  when  the  range  is 
exceeded.  Also,  we  still  need  to  define  a  way  of 
moving  instead  of  drawing,  which  we  will  also 
treat  as  an  exception.  One  way  to  do  this  is  to 
use  one  of  the  coordinate  values  to  signal  the 
exception.  The  other  relative  coordinate  could  be 
used  to  indicate  which  exception.  Since  this  uses 
both  halves  of  the  vector  byte,  the  exceptions 
will  require  additional  bytes. 

Now  we  are  ready  to  get  down  to  specifics. 
Let's  try  putting  the  relative  coordinate  for  X  in 
the  upper  half  of  the  vector  byte.  Naturally  that 
means  putting  the  relative  coordinate  for  Y  in  the 
lower  half.  As  for  a  value  to  signal  exceptions,  it 
is  most  logical  to  choose  a  value  at  an  extreme. 
Since  our  range  is  from  7  to  —8,  —8  would  be 
the  best  choice.  It  also  would  be  best  to  have  this 
value  in  the  upper  half  of  the  vector  byte.  This 
would  cause  the  exception  bytes  to  fall  in  the 
range  of  128  to  143.  Bytes  outside  this  range  will 
be  regular  "drawing"  vector  bytes. 

There  are  four  exceptions  we  will  need  to 
deal  with  initially.  These  exceptions  are  for 
signaling  a  move,  an  extended  draw,  an  extended 
move,  and  the  end  of  the  vector  byte  string.  With 
the  upper  half  signaling  an  exception,  this  leaves 
the  lower  half  to  flag  the  exceptions. 

Also,  the  numbering  of  the  exceptions  will 
be  a  little  easier  if  we  treat  the  four  bits  as  un- 
signed rather  than  signed.  This  lets  us  have  val- 
ues from  0  to  15,  instead  of  7  to  -8.  For  the 
exceptions,  let's  try  values  of  0,  1,  and  2  to  select 
move,  extended  draw,  and  extended  move,  re- 
spectively. To  mark  the  end  of  a  vector  byte 
string,  let's  try  15,  to  choose  an  extreme  again. 
The  following  table  summarizes  these  choices: 


Bit 

76543210 


jctor  Byte 
I        DX 


Move  Exception 

1  I        -8     [ 

2  I        DX     I 


DY 


0 
DY 


Extended  Draw  Exception 

1  I        "8     1        II 

2  1  DX  I 

3  1  DY  I 

Extended  Move  Exception 

1  I        -8      !        2      I 

2  1  DX  I 

3  !  DY  I 


tor  Byte  String 

1        DX  =  7  to  -7 

DY  =  7  to  -8 

1         =  128 

1        DX,DY  =  7  to  -8 

=  129 

=  127  to  -128 

=  130 

=  127  to  -128 

=  127  to  -128 

Drawing  Strings  Of  Characters 

Now  we  are  ready  to  implement  the  above  in  a 


BASIC  program.  The  result  is  shown  in  Program 

1.  The  task  of  drawing  the  character  has  been 
split  into  a  number  of  routines.  One  routine 
fetches  the  next  vector  byte,  and  another  unpacks 
the  relative  distances.  There  is  also  a  separate 
routine  to  handle  vector  byte  draws,  vector  byte 
moves,  extended  draws,  and  extended  moves.  Fi- 
nally, there  is  a  routine  which  draws  a  character, 
and  which  in  turn  uses  that  routine  to  draw  a 
string  of  characters. 

The  vector  byte  data  included  in  Program  1 
defines  vector  byte  strings  for  characters  65 
through  90,  or  A  through  Z.  The  vector  byte 
strings  will  draw  the  ASCII  character  correspond- 
ing to  the  character  code.  The  space  character  is 
also  defined.  The  vector  byte  strings  are  stored  in 
the  string  array  VB$  and  are  accessed  by  using 
the  character  code  as  the  subscript  into  the  array. 
Prior  to  running  the  program,  it  will  be  necessary 
to  load  the  line-drawling  routines  presented  in 
the  May  column. 

Character  Rotation 

I  have  included  a  routine  which  lets  you  specify 
a  character  rotation  in  increments  of  90  degrees. 
For  drawn  characters,  the  rotation  involves  simply 
negating  or  swapping  the  relative  coordinates 
specified  in  a  vector  byte.  Rotating  the  trans- 
ferred character  pattern  is  not  too  difficult  pro- 
vided the  cell  is  square,  as  it  is  in  our  case. 
Rotating  the  character  to  other  angles  typically 
won't  produce  desirable-looking  characters,  and 
may  be  too  complex  to  implement. 

The  following  is  a  table  showing  the  rouhnes 
that  are  available,  and  what  their  start  address  is. 
define  the  base  location  of  the  second  jump  table. 
Here  is  a  list  of  the  routines: 
Since  this  will  be  the  second  jump  table  (to  com- 
plement the  line-drawing  jump  table),  I  use  J2  to 

Loc.  Description 

J2-t-0  SET  PUT  CHAR.  DATA  LOCATIO^f 

J2-I-3  PUT  CHARS.  IN  BITMAP  (TRANSFER 

METHOD) 

J2-f^6  SET  DRAW  CHAR.  DATA  LOCATION 

J2-I-9  DRAW  CHARS.  IN  BITMAP 

J2  +  12  SET  ROTATION 

J2  +  15  NOT  USED  YET 

J2-I-18  NOT  USED  YET 

J2  +  21  NOT  USED  YET 

The  jump  vector  location  of  these  routines  is 
shown  as  the  variable  J2  plus  an  offset.  To  obtain 
the  actual  address,  J2  should  be  set  to  the  base  of 
the  jump  table  which  is  50176  or  C400  hex.  The 
following  list  gives  the  syntax  for  using  each  of 
the  defined  routines  in  the  jump  table: 

SYS      J2,LOC 

SYS      J2-f-3,CHAR  or  STRING 
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SYS      J2  +  6,LOC 

SYS      J2  +  9,CHAR  or  STRING 

SYS      J2  +  12,ROT 

ROT:  0  =  NO  ROT.,     1=90  DEGREES 
2  =  180  DEC,  3=270  DEC. 

Both  the  put  character  (J2  +  3)  and  draw 
character  (J2  +  9)  will  accept  either  a  single 
character  or  a  string  of  characters  as  an  argu- 
ment. If  the  argument  supplied  is  a  numeric 
value,  it  will  be  interpreted  as  the  ASCII  value  of 
a  single  character.  If  the  argument  is  a  string,  the 
entire  string  will  be  printed. 

The  location  required  by  the  put  character 
routine  should  be  the  base  address  of  the  charac- 
ter dot  patterns  to  use.  The  location  required  by 
the  draw  character  routine  is  the  base  address  of 
a  256-byte  table  containing  pointers  to  128  vector 
byte  strings.  The  pointers  to  the  vector  byte 
strings  are  each  two  bytes,  stored  as  low  byte  fol- 
lowed by  high  byte.  Use  of  a  table  is  necessary 
because  the  length  of  each  string  may  vary,  mak- 
ing it  impossible  to  calculate  the  locations  of  the 
vector  byte  strings  directly. 

Safe  Entry 

Program  2  will  POKE  the  machine  code  for  the 
character  routines  into  the  proper  locations.  Like 
the  program  which  POKEs  the  line-drawing 
routines,  that  last  number  in  each  data  line  is  the 
sum  of  the  previous  eight  bytes  on  the  line.  Pro- 
vided vou  don't  make  two  errors  which  cancel 
each  other,  the  program  will  report  any  lines  that 
have  mistakes  in  them.  If  there  are  no  detected 
errors,  a  SUCCESSFUL  LOAD  is  reported. 

Program  3  provides  a  simple  illustration  of 
the  use  of  the  character  routines.  For  vector  byte 
data,  add  the  DATA  statements  shown  in  Pro- 
gram 1,  which  will  define  ASCII  characters  A 
through  Z,  and  space.  The  vector  byte  data  will 
be  placed  at  the  top  of  BASIC'S  free  RAM,  after 
1024  bytes  of  space  is  reserved  from  BASIC.  You 
will  be  able  to  see  the  increase  in  speed  over  the 
BASIC  routines. 

Program  1 :  Draw  Characters  In  A  Bitmap 

Refer  to  thie  "Automatic  Proofreader  article  before  typing  -ftiis 
program  in, 

10  REM  DRAW  CHARACTERS  IN  BIT-MAP; rem  212 
20  JT=49152:REM  DRAWING  JUMP  TABLE: rem  16 
30  DIM  VB$(256):REM  DIM.  STRING  ARRAY 

; rem  99 
40  X=0iy=0:REM  X,Y  LOCATION  :rem  125 
50  DX=0 : DY=0 : REM  DELTA-X , DELTA-Y  :rem  219 
60  VB=0:REM  VECTOR  BYTE  : rem  144 

70  VB$="":REM  VECTOR  BYTE  STRING  srem  160 
80  VP=0;VL=0:REM  PTR  INTO  VB$,  VBS  LEN 

:rem  149 
90  GOTO  1000  -.rem    99 

100  REM  GET  NEXT  VECTOR  BYTE  : rem  155 
110  VP=VP+1:REM  BUMP  POINTER  ; rem  234 
120  IF  VP>VL  then  VB=0: RETURN  : rem  246 
130  VB=ASC{MID5(VB$,VP,1)):REM  GET  BYTE 

;rem   253 
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140  RETURN  srem  117 

200  REM  UNPACK  VECTOR  BYTE  : rem  63 
210  Dy=VBAND15;IF  DYAND8  THEN  DY=DY0R-8 

:rem  91 
220  DY=VBAND15:IF  DYAND8  THEN  DY=DY0R-8 

:rem  92 
230  DX=INT(VB/16) :IF  DXAND8  THEN  DX=DXOR- 
8  :rem  242 

240  RETURN  = rem  118 

300  REM  EXECUTE  VECTOR  BYTE  DRAW  :rem  191 
310  X=X+DX:Y=Y+DY  : rem  57 

320  SYS  JT+18,X,Y:REM  DRAW  THE  BYTE 

: rem  48 
3  30  RETURN  : rem  118 

400  REM  EXECUTE  VECTOR  BYTE  MOVE  : rem  201 
410  GOSUB  100:GOSUB  200: REM  GET  NEXT 

:rem  47 
420  X=X+DX:Y=Y+DY  : rem  59 

430  SYS  JT+12,X,Y:REM  DO  THE  MOVE: rem  148 
440  RETURN  : rem  120 

500  REM  GET  EXTENDED  DX  AND  DY  : rem  182 
510  GOSUB  100:DX=VB:REM  EXTENDED  DX 

:rem  93 
-128 

irera  61 

530  GOSUB  100:DY=VB:REM  EXTENDED  DY 

;rem  97 

540  IF  DY  AND  128  THEN  DY=DY  OR  -128 

:rem  66 
rem  122 
:rem  12 
:rem  15 
:rem  61 


520  IF  DX  AND  128  THEN  .DX=DX  OR 


550  RETURN 

600  REM  EXECUTE  EXTENDED  DRAW 

610  GOSUB  500: REM  GET  DX,DY 

620  X=X+DX : Y=Y+DY 

630  SYS  JT+18,X,Y:REM  DO  THE  DRAW: rem  147 

650  RETURN  :rem  123 

700  REM  EXECUTE  EXTENDED  MOVE      : rem  22 

710  GOSUB  500: REM  GET  DX,DY        : rem  16 

720  X=X+DX:Y=Y+DY  : rem  62 

730  SYS  JT+12,X,Y:REM  DO  THE  DRAW:rem  142 

750  RETURN  : rem  124 

800  REM  DRAW  STRING  OF  VECTOR  BYTES 

:rem  112 
810  VP=0:VL=LEN(VB$ ) :IF  VL=0  THEN  RETURN 

:rem  152 
820  IF  VP>=VL  THEN  RETURN  : rem  251 
830  GOSUB  100: REM  GET  NEXT  VB  : rem  129 
840  GOSUB  200: REM  UNPACK  : rem  142 

850  IF  DXo-8  THEN  GOSUB  300:GOTO  820 

;rem  246 
860  ON  DY+1  GOSUB  400,600,700     ; 
870  GOTO  820  i 

900  REM  PRINT  P$ 
910  FOR  PP=1  TO  LENCP$) 
920  VB5=VB$(ASC(MID?(P$,PP,1))) 
930  GOSUB  a00:REM  DRAW  THE  CHAR. 
940  NEXT; RETURN 
1000  REM  MAIN  ROUTINE 
1010  GOSUB  10000 
1020  SYS  JT:SYS  JT+6,0:SYS  JT+9,6,14 

:rem  34 
1030  X=10:Y=100:SYS  JT+12,X,Y     : 
1040  FOR  CH=64  TO  90  : 

1050  VB$=VB${CH) :GOSUB  800  : 
1060  NEXT 

1070  X=10:Y=80:SYS  JT+12,X,Y  : 
1080  P5="THIS  IS  AN  EXAMPLE  OF"  ; 
1090  GOSUB  900  : 

1100  X=10;Y=60iSYS  JT+12,X,Y 
1110  P$=" PRINTING  WITH  VECTOR  BYTES" 

I  rem  185 
1120  GOSUB  900  ;rem  221 

9000  GET  Z$:IF  Z$=""  THEN  9000    : rem  231 


srem  205 
:rem  114 
;rem  126 
:rem  214 
:rem  181 

:rem  45 
:rem  246 
: rem  240 

:rem  51 


rem  137 
rem  234 
rem  169 
;rem  6 
rem  100 
rem  194 
rem  227 
:rem  92 


9010  SYS  JT+3  ,rem  197 

9020  END  jrem  162 

10000  REM  LOAD  VB$()  , rem  2 

10010  C=0iREAD  CHiIF  CH<0  THEN  RETURN 

:rem  82 
10020  READ  VBsIF  C>0  THEN  C=C-l:GOTO  1008 
0  :rem  221 

10030  IF  ABSCVB)>7  THEN  10060  i rem  221 
10040  READDyiVB=(VB*16+(DYAND15))irem  137 
10050  GOTO  10080  I  rem  40 

10060  IF  VB=143  THEN  10010  , rem  20 
10070  IF  VB0128  THEN  C=2  ,  rem  21 

10080  VB${CH}=VB?(CH)+CHRS(VB  AND  255) 

■rem  234 
10090  GOTO  10020  irem  38 

11100  REM  (a  irem  23 

11110  DATA  64,128,3,3,0,1,-1,0,0,-1,3,0 

irem  61 
11120  DATA  0,2,-1,1,-3,0,-1,-1,0,-4 

irem  105 
11160  DATA  128,-5,2,5,0,128,3,-2,143 

:rem  204 
11130  DATA  1,-1,3,0,1,1,128,3,-1,143 

:rem  180 
11140  REM  A  :rem  28 

11150  DATA  65,0,4,2,2,1,0,2,-2,0,-4 

;rem  128 
11170  REM  B  :rem  32 

11180  DATA  66,0,6,4,0,1,-1,0,-1,-1,-1 

:rem  220 
11190  DATA  -4,0,128,0,-3,4,0,1,1,0,1 

:rem  177 
11200  DATA  -1,1,128,4,-3,143  : rem  64 
11210  REM  C  :rem  28 

11220  DATA  67,128,5,5,-1,1,-3,0,-1,-1 

;rem  233 
11230  DATA  0,-4,1,-1,3,0,1,1  :rem  42 
11240  DATA  128,3,-1,143  : rem  90 

11250  REM  D  :rem  33 

11260  DATA  68,0,6,3,0,2,-2,0,-2,-2,-2 

: rem  22  5 
11270  DATA  -3,0,130,8,0,143  : rem  21 
11280  REM  E  :rem  37 

11290  DATA  69,0,6,5,0,128,-1,-3,-4,0 

:rem  199 
11300  DATA  128,0,-3,5,0,128,3,0,143 

:rem  149 
11310  REM  F  ;rem  32 

11320  DATA  70,0,6,5,0,128,-5,-3,4,0 

:rera  144 
11330  DATA  128,4,-3,143  : rem  93 

11340  REM  G  :rem  36 

11350  DATA  71,128,5,5,-1,1,-3,0,-1,-1 

:rem  2  32 
11360  DATA  0,-4,1,-1,3,0,1,1,0,2,-2,0 

:rem  207 
11370  DATA  128,5,-3,143  : rem  98 

11380  REM  H  :rem  41 

11390  DATA  72,0,6,128,0,-3,5,0,128,0,3 

:rem  45 
11400  DATA  0,-6,128,3,0,143  : rem  21 
11410  REM  I  :rem  36 

11420  DATA  73,128,0,6,2,0,128,-1,0,0,-6 

:rem  83 
11430  DATA  128,-1,0,2,0,128,3,0,143 

:rem  148 
11440  REM  J  ;rem  40 

11450  DATA  74,128,0,1,1,-1,2,0,1,1,0,5 

:rem  24 
11460  DATA  128,-1,0,2,0,128,3,-6,143 

:rem  202 
11470  REM  K  :rem  44 


11480  DATA  75,0,6,128,0,-4,4,4,128,-3,-3 

;rem  145 
11490  DATA  1,0,3,-3,128,3,0,143  :rem  215 
11500  REM  L  :rem  39 

11510  DATA  75,0,6,128,0,-6,5,0,128,3,0,14 
3  :rem  242 

11520  REM  H  :rem  42 

11530  DATA  77,0,6,3,-3,3,3,0,-6,128,3,0,1 
43  :rem  26 

11540  REM  N  :rem  45 

11550  DATA  78,0,6,5,-5,128,0,5,0,-6 

:rem  161 
11560  DATA  128,3,0,143  srem  49 

11570  REM  O  :rem  49 

11580  DATA  79,128,1,0,-1,1,0,4,1,1,3,0,1, 
-1  :rera  8 

11590  DATA  0,-4,-1,-1,-3,0,128,7,0,143 

:rem  29 
11600  REM  P  :rem  44 

11610  DATA  80,0,6,4,0,1,-1,0,-1,-1,-1 

:rem  214 
11620  DATA  -4,0,130,8,-3,143  :rem  69 
11630  REM  Q  srem  48 

11640  DATA  81,128,1,0,-1,1,0,4,1,1,3,0,1, 
-1  :rem  254 

11650  DATA  0,-4,-l,-l,-3,0,128,2,l:rem  82 
11660  DATA  2,-2,128,3,1,143  : rem  28 
11670  REM  R  :rem  53 

11680  DATA  82,0,6,4,0,1,-1,0,-1,-1,-1,-4, 
0  :rem  200 

11690  DATA  128,2,0,3,-3,128,3,0,143 

:rem  161 

11700  REM  S  :rem  48 

11710  DATA  83,128,0,1,1,-1,3,0,1,1,0,1,-1 

. 1  :rem  251 

11720  DATA  -3,0,-1,1,0,1,1,1,3,0,1,-1 

:rem  205 
11730  DATA  128,3,-5,143  : rem  98 

11740  REM  T  ;rem  53 

11750  DATA  84,128,2,0,0,6,128,-2,0,4,0 

:rem  45 
11760  DATA  128,3,-6,143  irem    102 

11770  REM  U  ;rera  57 

11780  DATA  85,128,0,6,0,-5,1,-1,3,0,1,1 

:rem  83 
11790  DATA  0,5,128,3,-6,143  : rem  38 
11800  REM  V  ;rem  52 

11810  DATA  86,128,0,6,0,-4,2,-2,2,2,0,4 

:rem  82 
11820  DATA  128,3,-6,143  :rem  99 

11830  REM  W  :rem  56 

11840  DATA  87,128,0,6,0,-6,3,3,3,-3,0,6 

:rem  94 
11850  DATA  128,3,-6,143  : rem  102 

11860  REM  X  :rem  60 

11870  DATA  88,0,1,4,4,0,1,128,-4,0,0,-i 

:rera  83 
11880  DATA  4,-4,0,-1,128,3,0,143  : rem  9 
11890  REM  Y  :rem  64 

11900  DATA  89,128,0,6,2,-2,2,2,128,-2,-2 

: rem  141 
11910  DATA  0,-4,128,5,0,143  :rem  27 
11920  REM  Z  :rem  59 

11930  DATA  90,128,0,6,4,0,0,-1,-4,-4,0,-1 

:rem  168 
11940  DATA  4,0,128,4,0,143  : rem  240 
11950  REM  SPACE  :rem  80 

11960  DATA  32,130,8,0,143         srem  196 
11970  DATA  -1  :rem  122 

Programs  2  and  3  will  appear  in  this  column  next 
month.  O 
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On  The  Road  With  Fred  D'Ignazio 


Are  Computers 
A  Home  Appliance? 


Fred  D'Ignazio,  Associate  Editor 


Necessary,  Easy,  And  Inexpensive 

In  recent  columns  I  have  written  about  a  growing 
consumer  awareness  that  things  are  not  right 
with  the  microcomputer  industry.  Some  mislead- 
ing advertisements  have  made  people  buy 
computers  as  a  home  appliance.  Unfortunately, 
the  computers  have  not  met  some  people's 
expectations,  and  then  ended  up  gathering  dust 
in  the  closet. 

To  be  a  legitimate  home  appliance,  a  product 
should  have  three  characteristics: 

It  should  be  inexpensive. 

It  should  meet  a  real  need. 

It  should  be  easy  to  use. 

Let's  look  closely  at  each  characteristic,  and 
see  how  computers  measure  up. 

A  home  appliance  should  be  inexpenswe.  A 
low-end  computer  often  appears  to  be  inexpen- 
sive, but  it  turns  out  to  be  costly  after  a  person 
adds  the  necessary  "extras,"  including  a  disk 
drive,  a  printer,  and  some  basic  software. 

A  home  appliance  should  meet  a  real  need.  For 
example,  people  use  telephones  to  communicate; 
TVs  for  entertainment  and  news;  ovens  to  cook 
food;  and  refrigerators  to  keep  food  fresh.  But 
what  do  people  need  computers  for? 

A  home  appliance  should  he  easy  to  use.  For 
example,  you  can  pick  up  a  phone,  dial  seven 
numbers,  and  reach  another  person  within  sec- 
onds. You  can  push  a  button  on  a  TV,  and  the 
world  enters  your  living  room.  You  can  pull 
down  a  lever  on  the  toaster  oven  and  get  a  hot 
biscuit. 

When  you  turn  on  the  computer,  it  says, 
"READY."  But  it  is  not  really  ready.  First  you 
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must  load  in  additional  software,  turn  on  addi- 
tional appliances  (disk  drives,  a  printer,  a 
modem,  etc.),  answer  questions,  and  type  in 
additional  information.  All  these  cumbersome, 
time-consuming  steps  make  the  computer  ready, 
but  they  do  not  make  it  easy  to  use. 

kK45H.' Magazine 

How  do  people  learn  how  to  use  computers? 

They  might  join  a  user  group,  ask  a  kid,  or 
read  a  computer  magazine. 

A  magazine  like  COMPUTE!  can  be  a  lifesaver 
for  the  consumer  who  has  just  bought  an  in- 
expensive computer.  The  magazine  offers  easy- 
to-read  tutorials,  practical  tips,  and  lots  of 
excellent,  affordable  software. 

Kids  can  also  be  helpful.  So  can  user  groups. 
But  all  this  is  beside  the  point.  The  real  queshon 
is:  Should  a  home  appliance  be  this  difficult  to 
use? 

To  put  this  question  in  perspective,  ask 
yourself  how  many  people  would  own  a  washing 
machine  if,  to  operate  it,  they  had  to  buy  a 
monthly  magazine  called  WASH! ,  and  they  had 
to  get  help  from  a  washing-machine  whiz  kid 
and  attend  weekly  meetings  of  the  Whirlpool 
User  Group? 

And  how  fair  is  it  to  our  children  to  assume 
that  they  will  know  how  to  use  a  machine  that 
has  us  puzzled  and  bewildered? 

It  is  easy  for  kids  to  get  intimate  with 
computers,  because  they  share  few  of  our  fears, 
anxieties,  and  prejudices  about  these  machines. 
But  it  is  not  nearly  as  easy  for  them  to  get  com- 
puter literate — to  be  competent  computer  users 
and  programmers.  Nevertheless,  we  adults  now 


have  the  misconception  that  all  children  take  to 
computers  as  naturally  as  ducks  to  water.  But 
what  if  our  children  don't  take  to  computers? 
Does  that  make  them  less  intelligent  or  less  able 
than  their  friends?  And  where  does  that  leave  us? 

A  Growing  Backlash 

When  millions  of  people  buy  a  computer,  take  it 
home,  then  discover  that  it  is  not  going  to  be  in- 
expensive, that  it  meets  no  immediate  need,  and 
that  it  is  not  always  easy  to  use,  how  do  they 
feel?  Whom  do  they  blame? 

Until  recently,  most  people  blamed  them- 
selves, their  families,  and  their  kids.  But  this  is 
beginning  to  change.  Too  many  people  have 
been  disappointed  by  computers,  and  they  are 
talking  to  their  neighbors.  The  secret  is  finally 
out.  The  fault  is  not  with  the  consumer,  it  is  with 
computers  themselves — and  the  companies  that 
make  them. 

New  Consumer  Savvy 

The  computer  price  wars  of  1982-1983  had  a 
disastrous  effect  on  the  computer  industry  and 
drove  many  companies  out  of  the  market,  includ- 
ing Texas  Instruments;  Mattel,  and  Timex.  In 
addition,  many  naive  customers  were  lured  by 
incredibly  low  prices  into  buying  low-end 
computers.  Unfortunately,  the  customers  had  no 
idea  what  to  do  with  the  computers  once  they 


got  them  home. 

However,  in  spite  of  these  setbacks,  the  ul- 
timate effect  of  the  price  wars  may  be  positive. 
Between  1982  and  1984,  large  numbers  of  people 
bought  "throwaway"  computers,  became  dis- 
gruntled consumers,  and  described  their  experi- 
ences to  their  neighbors.  The  result  is  that,  today, 
people  are  a  lot  more  knowledgeable  about 
computers  than  they  were  just  a  year  ago. 

In  fact,  people's  bad  experience  with 
computers  and  their  "sour  grapes"  reaction  have 
created  a  mild  consumer  backlash  against 
computers.  The  average  consumer,  in  mid-1984, 
is  much  more  skeptical  about  computers  than  he 
was  in  1982  or  1983.  He  realizes  that  a  good 
price  is  not  the  only  thing  to  look  for  when 
choosing  a  computer  for  the  home.  He  under- 
stands that  computers,  to  be  useful,  need  good 
software,  memory,  printers,  and  disk  drives.  He 
realizes  that  even  with  all  this  equipment  a  com- 
puter is  not  a  home  appliance.  On  its  own  it 
won't  guarantee  him  or  his  family  anything. 

The  average  consumer  is  returning  to  the 
healthier  show-me  attitude  that  prevailed  before 
the  era  of  high-fech  chic  that  reigned  from  1982 
and  1984,  "Show  me  real  needs  that  computers 
meet,"  the  consumer  is  saying.  "Show  me  a  com- 
puter with  no  hidden  costs  that  is  useful  and 
simple  to  operate."  © 
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64  Error 

Suppression 


Tom  Nuss 


There  are  times  when  you  don't  want  error  messages 
(and  the  resulting  interruption)  in  a  program.  Here's 
how  to  avoid  some  kinds  of  system  freezes. 


While  constructing  a  general  graphing  program 
that  would  handle  varied  equations,  I  realized 
that  it  would  crash  when  it  tried  to  divide  by  zero 
or  take  the  square  root  of  a  negative  number.  Since 
a  graphing  program  depends  on  drawing  a  fairly 
smooth  curve,  these  two  possibilities  would  defi- 
nitely occur  from  time  to  time  in  a  general  pro- 
gram loop  that  plots.  I  also  found  I  had  to  learn 
machine  language  to  get  things  to  happen  before 
my  hair  turned  gray. 

After  delving  into  the  BASIC  interpreter  with 
my  trusty  Supermon-64,  I  discovered  that  if  the 
accumulator  contained  a  zero  after  a  division,  it 
would  branch  to  the  error  routine  at  $A437,  which 
would  jump  indirectly  (via  a  vector  address  in 
$300  and  S301)  to  $E38B  and  proceed  to  print  mes- 
sages and  stop  the  BASIC  program. 

I  soon  confirmed  that  all  error  messages  (at 
least  the  ones  I  tried)  went  through  $A437,  then 
jumped  indirectly  by  the  bytes  loaded  in  $300  and 
$301  to  $E38B.  All  I  had  to  do  was  change  the 
contents  of  $300  and  $301  to  an  address  pointing 
to  where  1  would  have  my  own  routine  that  would 
skip  over  the  error  to  allow  the  program  to 
continue. 

BackToBASrC 

Simple  enough,  but  how  to  get  back  in  the  BASIC 
program  at  the  right  spot  once  I  left?  No,  not  back 
into  the  interpreter  again;  anything  but  that! 

I  noticed  that  just  down  the  page  of  the  mem- 
ory map  at  $A906  was  the  routine  "Scan  for  next 
statement."  Now  that  I  look  back  on  it,  1  should 
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have  started  there.  Needless  to  say,  that  entry 
point  was  the  last  of  the  major  pieces  to  the  puzzle 
of  skipping  the  BASIC  error  handler. 

To  get  down  to  the  mechanics,  I  have  made 
up  a  demonstration  program  to  illustrate  the 
method  to  bypass  arithmetic  errors.  If  you  type  in 
the  program  and  RUN,  you  will  get  the  results 
shown  in  the  figure.  AC  SR  XR  YR  are  the  Ac- 
cumulator, Status,  X,  and  Y  registers  respectively. 
Directly  beneath  them  are  several  series  of  four 
numbers  and  either  SYNTAX  OK  or  a  variation  of 
F(#)=  a  number. 

Ignoring  the  first  line  of  eights  and  SYNTAX 
OK  for  the  moment,  you  will  notice  that  line  70  in 
the  program  defines  the  function  SQR(4-Ct2)/C 
and  that  the  second  line  of  numbers  in  the  figure 
is  255  49  14  1 .  When  one  has  C  =  -3  in  the  above 
equation,  mathematicians  will  shake  their  heads, 
and  the  computer  should  crash.  Why  didn't  it?  In 
fact  it  even  gave  an  answer  for  SQR(-5)/-3  and 
blithely  continued  to  calculate  the  rest  of  the  F(C)s 
from  -3  to  3.  F(-2),  F(-l),  F(l),  and  F(2)  give  the 
correct  answer,  while  F{-3),  F(0),  and  F(3)  don't. 

Remember,  our  objective  is  to  skip  dilemmas 
like  division  by  zero,  so  we  must  first  find  out  if 
that  is  what  the  computer  is  trying  to  do.  The 
way  to  do  this  is  to  look  at  line  10,  which  POKEs 
addresses  768  and  769  ($300  and  $301)  with  52 
and  3  (or  $34  and  $03).  These  are  the  bytes  indi- 
rectly used  to  tell  the  error  routine  where  to  go 
after  it  finds  an  error;  normally  these  bytes  contain 
the  address  $E38B,  but  line  10  changes  this  to 
address  820  decimal  ($334).  This  is  where  our 
machine  language  routine  is  FOKEd  by  line  20. 
Line  230  changes  things  back  to  normal  after  the 
program  is  finished.  For  those  of  you  who  wish  to 
see  the  disassembled  machine  language  routine, 
here  it  is: 


STA  $FB 

PHP 

PLA 

STA  $FC 

STX$FD 

STY$FE 

PHA 

PLP 

LDA  $FB 

JMP  $A906 

The  above  routine  is  only  used  when  there  is 
an  error.  Locations  251-254  (SFB-$FE)  are  loaded 
with  eights  at  the  start  (line  10)  and  loaded  again 
each  time  through  the  loop  that  calculates  F(C). 
However,  if  an  error  occurs  in  line  150,  the  error 
routine  will  load  locations  251-254  with  the  con- 
tents of  the  registers  at  the  time  of  the  error  and 
then  continue  with  the  next  BASIC  line.  Line  160 
prints  out  the  contents  of  the  registers  and  F(C). 
Thus  the  contents  of  251-254  change  only  when 
an  error  occurs. 

So,  now  the  program  doesn't  crash;  it  just 
gives  erroneous  results,  and  that  should  also  be 
avoided.  Type  in; 

185  IF  PEEK(252)>  =  48  THEN  PRINTiGOTO  200 

RUN  the  program  again  and  there  should  be 
blanks  where  F(-3),  F(0),  and  F(3)  are  involved.  In 
other  words,  by  PEEKing  252  and  by  comparing  it 
to  48  we  have  skipped  the  errors;  nothing  has 
been  printed,  saved,  recorded,  or  crashed.  Only 
the  proper  numbers  are  still  able  to  be  used. 

So  much  for  mathematics.  What  if  we  define 
the  function  wrongly?  LIST  the  program  and 
change  line  70  to:  DEFFNF(C)  =  SQR(4  -  Ct2/C 
and  RUN.  If  all  is  not  well  you  should  see  a  line  of 
four  numbers,  not  eights,  a  SYNTAX  ERROR  (70) 
and  line  70.  Our  error  routine  kicked  in  and  in 
line  100  checked  location  252  to  see  if  it  was  less 
than  112  and  told  you  about  the  error  in  syntax. 
This  is  really  no  advantage  over  the  regular  sys- 
tem, but  if  you  are  using  the  dynamic  keyboard 
method  to  enter  your  DEFFNF(C)  (see  "Bootmaker 
for  VIC,  PET,  and  64,"  COMPUTE!,  May  1983),  this 
routine  would  come  in  mighty  handy. 

Errors  That  Get  Througti 

It  should  be  pointed  out  that  there  is  a  potential 
problem  with  this  routine.  Change  line  70  to 
DEFFNF(C)  =  SRR(4-C  t2)/C.  Errors  galore,  but 
they  weren't  caught.  Why  not?  I  wish  I  knew. 
Please,  not  the  BASIC  interpreter  again.  All  I  can 
say  is  that  in  an  instance  like  this  you  will,  on 
most  occasions,  be  able  to  tell  there  is  an  error 
and  that  the  error  is  being  caused  by  the  DEFFN 
statement.  Also,  before  including  this  specific 
Syntax  Error  routine  in  a  program  of  your  own, 
you  should  try  putdng  a  multiply  sign  (*)  before 
the  SQR  in  line  70  and  then  RUN.  As  you  can  see, 
the  computer  locks  up.  The  only  way  to  correct 
this  situation  is  to  turn  the  power  off  and  reload 


the  program.  Weigh  the  advantages  of  including 
the  Syntax  Error  routine  described  here  against 
the  very  obvious  disadvantage  of  system  lockup. 
To  sum  up: 

1.  POKE  768  and  769  ($300,  $301)  with  the 
address  of  your  machine  language  routine  that 
will  handle  the  BASIC  errors.  In  the  example 
presented  here,  52  and  3  are  POKEd,  for  location 
820  ($334). 

2.  The  error  handling  routine  loads  byte  252 
($FC)  and  provides  the  jump  address  to  "Scan  for 
next  statement"  at  $A906  so  you  can  reenter  your 
program. 

3.  Check  byte  252  (Status  Register  during  an 
error)  to  see  if  it  is  greater  than  or  equal  to  48  for  a 
mathematical  error  or  112  for  a  syntax  error. 

4.  Take  the  appropriate  action  either  to  save 
an  answer  or  to  skip  it. 

5.  POKE  768  and  769  with  139  and  227 
respectively  to  restore  the  normal  error  vector 
address  ($E38B).  This  is  important  since  the  com- 
puter won't  be  able  to  function  in  the  immediate 
mode. 

Error  Suppression 

10  POKE768 ,52: POKE769 , 3 : FORC=0TO3 : POKE25 1 
+C,8:NEXTC  : rem  108 

20  FORC=0TO1 6 : READD : POKEB20+C , D : NEXTC 

srem  58 

30  FORC=0TO17:PRINTCHR$(-96)  ;  :  NEXTC ;  PRINTC 

HR$C105)  rem  51 

40  PRINT"  AC";TAB(5);"SR"rTAB(10);"XR";TA 

B(15)r"YR  ";CHR$(125)  : rem  122 

50  FORC1=0TO38:PRINTCHR$(96) ; :NEXTC1:PRIN 

T  :rem  178 

60  PRINTCHR$ { 145 ) ; TAB ( 18 ) ; CHR$ (177) 

:rem  215 

70  DEFFNFCC)=SQRC4-Ct2)/C         :rem  206 

80  SX=FNF(1)  :rem  172 

90  PRINTPEEK(251) ; TAB ( 4 ) ;PEEK(252) ?TABC9) 

;PEEK(253);TAB(14);PEEK(254);   : rem  27 

100  IFPEEK(252)<112THENPRINT"[3  SPACES )SY 

NTAX  OK":GOTO120  : rem  134 

110  PRINT" {3  SPACES] SYNTAX  ERROR  (70)":GO 

TO230  :rem  148 

120  FORC1=0TO3B:PRINTCHR$(96) ; :NEXTC1:PRI 

NT  ;rem  224 

130  FORC=-3T03  :rem  49 

140  C$=STR$(C)  :rem  234 

150  X=FNP{C)  :rem  153 

160  PRINTSTR$  C  PEEK ( 251 ) ) ;TAB(4)  ;  STR$ ( PEEK 

(252));TAB(9);  :rem  198 

170  PRINTSTR$ ( PEEK ( 253 ) ) ;TAB( 14) ; STR$ ( PEE 

K(254))  :rem  37 

180  PRINTCHR$(145) ;TAB(20) ; "F( "C$" )="; 

:rem  16 
190  PRINTX  :rem  127 

200  FORC1=0TO3B:PRINTCHR$(96) ; :NEXTC1:PRI 
NT  trem  223 

210  FORCl =0TO3 :P0KE2 5 1+01,8: NEXTC 1: rem  34 
220  NEXTC  :rem  22 

230  POKE768,139:POKE769,227         : rem  8 
240  IFPEEK(252)>=112THENLIST70     : rem  21 
300  DATA  133,251,8,104,133,252,134,253,13 
2,254,72,40,165,252,76,6,169:rem  65  © 
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Hi-Res 
VIC  Drawing 


Jeff  Wise 


There  comes  a  time  xohcu  programmers  imni  more 
subtle  graphics  than  can  be  achieved  loith  charac- 
ters and  low  resolution.  Do  you  ever  feel  like  creat- 
ing swirling,  intricate  webs  of  delicate,  slender 
lines?  Here's  hoio  to  achieve  high  resolution  on 
the  VIC. 


The  designers  of  the  VlC-20  thoughtfully  in- 
cluded in  the  VIC  chip  a  special  programmable 
character  generator.  Though  mainly  intended  for 
creating  custom  alphabets  and  symbols,  it  can 
also  be  used  to  generate  an  entire  high-resolution 
screen. 

Each  character  that  the  VIC  puts  on  the 
screen,  whether  user-defined  or  standard,  is 
stored  in  eight  bytes  of  memory.  Each  byte  de- 
fines one  of  the  eight  rows  that  comprises  a  VIC 
character.  Furthermore,  each  of  the  rows  is  split 
up  into  eight  sections  corresponding  to  the  eight 
bits  in  that  row's  byte.  If  a  bit  is  on  (there  is  a  1 
in  its  location),  then  its  chunk  of  the  row  is  lit 
up.  If  a  bit  is  off  (it  contains  a  0),  then  its  chunk 
of  the  row  is  blank. 

Character  Matrices 

"Microdraw"  sets  up  a  matrix  of  12  X  15  custom 
characters,  all  of  which  are  initially  made  blank 
(by  POKEing  0  into  the  defining  bytes).  Since 
each  character  is  defined  by  eight  bytes  of  eight 
bits  each,  we  have  a  total  of  11,520  bits,  or  dots, 
on  the  screen  which  we  can  turn  on  or  off  at 
will.  To  light  up  a  dot,  simply  POKE  a  1  into  its 
corresponding  bit. 

Such  high  resolution  comes  at  a  price.  In  or- 
der to  use  custom  characters,  we  first  must  set 
the  character  memory  apart  from  the  BASIC  pro- 
gram area.  Since  we  are  using  so  many  charac- 
ters, a  lot  of  memory  is  consumed — 1.5K,  nearly 
half  the  memory  available  in  an  unexpanded  VIC. 
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Now  that  we've  covered  the  theory,  it's  time 
to  enjoy  your  VlC's  hi-res  capability.  Type  in 
Microdraw,  save  it,  then  run  it.  Plug  in  your  joy- 
stick, if  you  have  one.  Select  the  foreground  and 
background  colors  for  the  drawing  area  by  press- 
ing the  number  key  with  the  appropriate  color 
on  it.  The  program'  will  then  set  up  the  drawing 
area  and  display  the  cursor.  You  control  the 
cursor  by  moving  the  joystick  in  the  direction 
you  want  the  cursor  to  go. 

Initially,  the  cursor  is  in  the  erase  mode, 
which  means  that  the  cursor  does  not  create  a 
line  as  it  travels  and  will  erase  any  line  it  comes 
in  contact  with.  In  this  mode  the  TV  speaker 
emits  a  low  beeping  tone. 

To  change  to  the  drawing  mode,  press  the 
fire  button  on  the  joystick.  The  TV  speaker  will 
then  beep  in  a  higher-pitched  tone,  and  the 
cursor  will  leave  a  line  as  it  travels.  To  change 
back  to  the  erase  mode,  simply  press  the  fire  but- 
ton  once  again. 

The  SAVE  Function 

The  function  keys  offer  three  additional  options: 
The  fl  key  erases  the  drawing  screen  and  leaves 
the  cursor  in  position;  f3  starts  the  program  from 
the  beginning  and  resets  all  variables;  and  f5 
causes  the  program  to  jump  to  a  screen-saving 
routine.  The  saving  routine  is  self-explanatory,  as 
is  the  retrieval  routine.  To  replay  the  data  you 
have  stored,  choose  selection  2  ("load  an  old 
one"). 

If  you  do  not  have  a  joystick,  a  simple 
modification  will  allow  you  to  use  the  keyboard 
instead.  Delete  lines  330  and  340,  and  change 
line  320  to  read: 

320  A=PEEK(197 ) : J0=- ( A=44 ) : Jl=- (A=36) :J2= 
-(A=20) :J3=-CA=12) :IF  A=32THENB=ABS (B 
_1 )  rem  155 


Now  the  cursor's  up,  down,  left,  and  right  mo- 
tions are  controlled  by  the  I,  M,  J,  and  K  keys, 
respectively.  To  change  modes,  press  the  space 
bar  instead  of  the  fire  button.  It  is  not  necessary 
to  hit  the  control  keys  repeatedly;  the  cursor  will 
move  as  long  as  the  key  is  held  down.  If  no  key 
is  pressed,  the  cursor  will  stop.  In  all  other  re- 
spects, the  program  works  as  before. 
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0 
GETA$ 


POKE36869 , 240 : POKE52 , 24 : P0KE56 , 24 : POKE 
36879, 27:CLR  -rem   84 

PRINT'McLR} (3    DOWN}l)    DRAW   A   NEW    PICTU 
RE. {down] 2)    LOAD    AN    OLD    ONE. " : POKE198, 

:rem   105 
IFA$<> "1 "ANDA$ <> " 2 "THENfig 

:rem  133 

IPA$="2"THEN450  : rem  214 

PRINT"{CLRl{3  DOWN} BORDER  COLOR?" :GOSU 

B100:G=VAL(A?)-1  :rem  123 

PRINT" {3  DOWN] BACKGROUND  COLOR?" :GOSUB 

100:H=VAL(A?):GOTO120  : rem  180 

GETA?:IFA$<"1"ORA$>"8"THEN100  : rem  53 

RETURN  -retn  114 

POKE36879,G+16*H-8: PRINT" {CLR}" 

: rem  77 
FORX=0TO21 :FORY=0TO22;POKE7680+X+22*Y 
,  160  ;  POKE38400+X-!-22  *Y,  G :  NEXT  :  NEXT 

;  rem  44 
IFW=1THEN160 

FORI=6144T07679 : POKEI , 0 :NEXT 
4T07431 : POKEI , 255 :NEXT 
C=0 : POKE36869 , 254 : FORX=5T016 
18 ; IFX+Y=34THENNEXT : GOTO180 
C=C+1 :POKE7680+X+22*Y,C 


ireni  175 

:FORI=742 

:rem  182 

:F0RY=3T0 

: rem  53 

; NEXT : NEXT 


;rem  235 
Y=18 : FORX=3T018 : POKE7680+X+22*Y, 160 :N 
EXT:C=90  : rem  191 

IFJ1THENF=F+1:IFF>7AND(C+1 )/l6<>INT( ( 
C+1)/16)THENF=0:C=C+1:GOTO210  : rem  82 
IFF>7THENF=7  -rem  197 

IFJ3THENF=F-1 :IFF<0AND(C-1)/16<>INT( ( 
C-1)/16)THENF=7:C=C-1:GOTO230  : rem  85 
1FF<0THENF=0  -rem  183 

IFJ0THENE=E+1 : IFE  >  7ANDC  < 1 77THENE=0 : C= 


C+16:GOTO250 
IFE>7THENE=7 
IFJ2THENE=E-1  i 
-16:GOTO270 
IFE<0THENE=0 


350 

360 
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380 


irem  222 
: rem  199 
IFE<0ANDC>16THENE=7:C=C 
;rem  176 
:rem  185 

P0KE6144+C8*C)+F,PEEK(6144+C8*C)+P)AN 
DNOT(2T(7-E))  :rem  203 

POKE6144+(8*C)+P,PEEK(6144+(8*C)+F)OR 
2T(7-E)  ,rem  88 

POKB3687a,15:POKE36874+2*B,130+INT{C/ 
2.14):POKE36878,0  :rem221 

POKE36874+2*ABS(B-1),0  ; rem  120 
IFB=0THENPOKE6144+ (8*C )+F, PEEK ( 6144+ ( 
a*C)+F)-2T(7-E)  :rem  75 

POKE37154, 127 :Z=128ANDPEEK( 37152 ):J0= 
-(2-0)  -rem  123 

POKE37154,255:Z=PEEK(37151)  : rem  217 
J1=-((ZAND8)=0):J2=-((ZAND16)=0);J3=- 
{ (ZAND4 )=0) : J=- ( ( ZAND32 )=0 ) i IFJTHENB= 
ABS(B-l)  .j-em  91 

GETA$ : IFA$ <>CHR$ ( 133 ) ANDA$ <>CHR? ( 134 ) 
ANDA?<>CHR5(135)THEN190  : rem  112 
IFA$=CHR5(134)THEN10  : rem  68 

IFA$=CHR$(135)THEN390  : rem  129 
PORI=6144T07423 : POKEI , 0 :NEXT: FORI=743 


2TO7679:POKEI,0:NEXT:GOTO190  : rem  92 
390  POKE36869,240:POKE36879,27  : rem  172 
400  PRINT" {CLR] {down} {RVSItEoFfIaPE  OR 

{RVS]d{oFF3iSK?":POKE198,0  : rem  237 
402  GETA$:IFA?<>"T"ANDA$<>"D"THEN402 

: rem  26 
405  IFA$="T"THENPRINT"REWIND  TAPE": rem  85 
415  PRINT"HIT  A  KEY  WHEN  READY"  : rem  33 
420  B$="":GETB?:IFB$<>"  "THEN420  : rem  175 

425  IFA?="T"THEN0PEN1,1,1         : rem  176 

426  IFA?="D"THENINPUT"FILENAME"?N$:N5=N$+ 
",S,W":D=8:OPENl,8,5,N$         ; rem  5 

430  PRINT#1,G:PRINT#1,H:F0RA=6144T07679:P 

RINT#l,PEEK(A):NEXT:CLOSEl  : rem  192 
440  PRINT" { CLR} YOUR  PICTURE  IS  SAVED. ":G0 

TO10  -rem  120 

450  PRINT" {DOWN} {RVS}t{0FF}aPE  OR  {RVS}D 

{0FF}iSK?":D=1:N$=""  : rem  17 

455  GETA$;IFA$<>"T"ANDA$<>"D"THEN455 

:rem  42 
460  IPA$="T"THENPRINT"{3  DOWN } INSERT  CASS 

ETTE  AND {3  SPACES } REWIND  IT"  ; rem  0 
470  PRINT" {DOWNIwHEN  YOU  ARE  READY  HIT(SP 

ACE). {down}" :W=1:WAIT198,1  : rem  71 
475  IFA$="T"THENOPEN1,1,0  ; rem  180 
480  IFA$="D"THENINPUT"FILENAME"?N$:D=8:N5 

=N$+",S,R":OPENl,8,5,N$  ; rem  0 
490  INPUT#1 , G: INPUT#1 , H:F0RA=6144T07679 :I 

NPUT # 1, C:P0KEA,C: NEXT: CLOSE 1  : rem  116 

500  GOTO120  .rem  97 

10000  0PEN15,8,15iINPUT#15,A,B$,C,D!CL0SE 

15  srem   198 
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ML 

Applesoft 


Richard  Salley 


A  machine  language  program  is  necessary  when 
sorting  large  amounts  of  data.  "ML  Applesort"  is  a 
machine  language  utility  that  will  quickly  sort  an 
array  of  any  length. 


In  COMPUTE!  (September  1982),  David  Lummis 
presented  an  excellent  machine  language  sort 
routine  for  PET/CBM  computers.  "ML 
Applesort"  is  a  modification  of  Lummis's  pro- 
gram for  the  Apple. 

The  original  program  has  been  compressed 
to  fit  it  into  page  3  of  memory.  This  is  a  safe  area 
for  ML  programs  so  you  do  not  have  to  worry 
about  overwriting  the  routine  with  a  long  pro- 
gram or  numerous  and  lengthy  string  arrays.  The 
zero  page  locations  used  for  temporary  storage, 
counting,  and  address  indexing  were  chosen  be- 
cause most  of  these  locations  are  used  primarily 
in  connection  with  hi-res  graphics,  and  it  is  un- 
likely such  programs  will  be  used  concurrently 
wdth  a  sort  utility. 

ML  Applesort  makes  use  of  the  Apple's  spe- 
cial &  command.  When  the  BASIC  interpreter 
encounters  the  &  in  a  program,  it  goes  to  loca- 
tion $3F5  (1013  decimal)  and  then  performs  an 
unconditional  jump  to  the  address  contained  in 
$3F6  and  $3F7.  In  this  program,  0  is  placed  in 
$3F6  (1014  decimal)  and  3  is  placed  in  $3F7 
(1015  decimal).  This  will  cause  a  jump  to  loca- 
tion $300  (768  decimal),  which  is  where  the  ma- 
chine language  routine  begins. 
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The  first  instruction  at  $300  is  a  JSR  (Jump 
to  SubRoutine)  $F7D9.  This  is  a  monitor  subrou- 
tine that  fetches  the  address  of  a  string  and 
stores  it  in  locations  $9B  and  $9C.  By  placing  the 
name  of  the  string  array  we  want  sorted  immedi- 
ately after  the  &,  this  routine  will  tell  us  where 
in  memory  that  array  is  stored.  The  correct  for- 
mat for  calling  the  ML  sort  routine  from  BASIC 
is  as  follows: 
100  &x$ 

where  X$  is  the  name  of  the  array  to  be  sorted. 
When  the  routine  returns  to  BASIC,  the  named 
array  will  be  sorted  alphabetically  in  ascending 
order.  How  the  program  does  the  sorting  can  be 
understood  by  studying  a  disassembly.  To  enter 
the  program,  use  the  BASIC  Loader  (Program  1). 

After  placing  the  program  into  memory  by 
running  Program  1,  save  it  to  disk  by  typing: 

BSAVE  APPLESORT,  A$300,  L$FF 

You  can  then  BLOAD  the  sort  routine  and  use  it 
with  any  of  your  own  BASIC  programs. 

Program  2  shows  how  easily  the  program 
can  be  used  and  how  quickly  it  can  sort  an  array 
with  strings  of  varying  lengths.  I'm  sure  COM- 
PUTE! readers  with  Apple  machines  will  find  nu- 
merous applications  for  this  useful  utility. 


Program  1 :  ml  Applesoft 

100   REM   ...ML  APPLESORT 

110   REM   ...POKE  ««  JUMP  ADDRESS 


120   POKE  1013,761  POKE  1014, Oi  POKE  10 

15,3 
130   REM   ...POKE  ML 
140   FDR  ADDR  ■  768  TO  941 1  READ  CODE  I C 

KSUM  -  CKSUM  +  CODE I  POKE  ADDR, COD 

El  NEXT 
150   IF  CKSUM  <   >  26104  THEN   PRINT  "E 

RROR  IN  DATA  STATEMENTS"!  STOP 
768   DATA   32,  217,  247,  165,  155,  133, 

1,  165 
776   DATA   156,  133,  2,  160,  5,  177,  1, 

133 
784   DATA   20B,  200,  177,  1,  133,  209, 

169,  1 
792   DATA   133,  210,  169,  0,  133,  211, 

24,  165 
BOO   DATA   1,  105,  7,  133,  235,  165,  2, 

105 
808   DATA   0,  133,  236,  165,  235,  133, 

22S,  165 
816   DATA   236,  133,  226,  24,  165,  225, 

103,  3 
824   DATA   133,  235,  165,  226,  105,  0, 

133,  236 
832   DATA   160,  0,  177,  225,  208,  34,  2 

4,  165 
840   DATA   210,  105,  1,  133,  210,  165, 

211,  105 

848   DATA   0,  133,  211,  197,  208,  144, 

212,  165 

856   DATA   210,  197,  209,  144,  206,  165 

,  212,  208 
B64   DATA   1,  96,  169,  O,  133,  212,  240 

,  174 
872   DATA   133,  213,  177,  235,  240,  239 

,  133,  214 
880   DATA   200,  177,  225,  133,  233,  177 

,  235,133 
888   DATA   237,  200,  177,  225,  133,  234 

,  177,  235 
896   DATA   133,  238,  160,  O,  177,  233, 

209,  237 
904   DATA    144,  IBS,  240,  2,  176,  9,  2 

00,  196 
912   DATA   213,  240,  179,  196,  214,  208 

,  237,  160 
920  DATA    2,  177,  225,  72,  177,  235, 

145,  225 
928   DATA   104,  145,  235,  136,  16,  243, 

169,  1 
936   DATA   133,  212,  76,  70,  3,  0 

Program  2:  ml  Applesort  Demo 

10   REM  ...SORT  DEMO 

20   IF   PEEK  (768)  -  32  THEN  40 

30   PRINT   CHR*  <4) | "BLOAD  APPLESORT" 

40   HOME  I  VTAB  5:  PRINT  "POINTER  SORT 

DEMO" 
50   VTAB  7i  INPUT  "ENTER  «  OF  STRINGS  T 

O  SORT  "iN 
60   DIM  R«<N> 

70  B»  -  "ABCDEFBHIJKLMNOPQRSTUVWXYZ" 
80   FLASH  I  PRINT  i  PRINT  "BUILDING  STR 

INGS" 
90  NORMAL 
100   FOR  F  -  1  TO  NiX  -   INT  (  RND  <1)  » 

7)  .+  2i  FOR  e  -  1  TO  X 
110  R»<F)  -  R*(F)  +   MID*  tB*,  INT  (  RND 

(1)  *  26)  +  1,1) 


120 
130 

140 

150 
160 
170 
180 

190 

20O 


NEXT  t  NEXT 

FOR  F  -  1  TO  Ni  PRINT  R*(F>,i  NEXT 

PRINT  I  INPUT  "PRESS  <RETURN>  TO  8 

ORT  "»XX» 

PRINT  1  PRINT  "SORT  BEGUN" 

Sc  R« 

PRINT  I  PRINT  "SORT  FINIS^«D!!" 

PRINT  I  INPUT  "PRESS  < RETURN >  TO  P 

RINT  SORTED  LIST  "|XX» 

FOR  F  -  1  TO  Ni  PRINT  R«(F),i  NEXT 

PRINT  I  PRINT  "END  OF  DEMO"i  END  i 
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Questions  Beginners  Ask 


Tom  k^  Hoifhill,  bioTT  Editor 


Are  you  thinking  about  bm/ing  a  computer  for  the 
first  time,  but  you  don't  know  much  about  comput- 
ers? Or  niai/bc'you  just  purchased  a  computer  and 
are  still  a  bit  baffled.  Each  month  in  this  column, 
COMPUTE!  will  answer  i]ucstions  freipiently  asked  by 
beginners. 


QIs  it  safe  to  plug  a  whole  home  computer 
system  into  a  single  wall  socket?  I'm 
talking  about  a  computer,  TV,  cassette  re- 
corder, disk  drive,  printer,  and  a  modem.  Will 
it  blow  a  fuse?  Or  will  I  have  to  run  extension 
cords  from  nearby  wall  sockets  for  some  of  the 
peripherals? 

A  As  long  as  no  other  power-hungry  appliance 
is  on  the  same  socket,  plugging  a  whole 
home  computer  system  into  one  outlet  is  per- 
fectly safe.  Home  computers  and  their  periph- 
erals actually  don't  use  very  much  electricity  at 
all.  In  fact,  the  typical  home  computer  consumes 
less  power  than  'the  light  bulb  you'll  burn  to  see 
it  by. 

For  instance,  one  of  our  editors  has  a  com- 
puter system  at  home  which  consists  of  an  Atari 
800  with  48K  of  memory,  a  disk  drive,  a  cassette 
recorder,  an  Atari  850  Interface  Module,  a  color 
monitor,  an  80-column  dot-matrix  printer,  and  a 
modem.  Everything  but  the  monitor  and  the 
modem  is  plugged  into  a  six-socket  power  strip, 
which  in  turn  is  plugged  into  a  single  wall  outlet. 
The  power  strip  has  a  15 -amp  circuit  breaker 
which  has  never  popped.  That  means  the  system 
uses  less  than  1650-1800  watts,  or  a  little  more 
electricity  than  a  blow  dryer. 

By  far  the  most  power-hungry  component  of 
a  home  computer  system  is  the  TV  set  or  mon- 
itor. A  small  black-and-white  TV  or  monochrome 
monitor  won't  use  much  electricity,  but  a  large 
color  TV  can  use  more  power  than  the  rest  of  the 
svstem  put  together.  If  you're  worried  about 
overloads,  plug  the  TV  into  a  different  outlet. 

One  thing  you  should  avoid  is  hooking  up 
the  computer  system  to  a  circuit  shared  by 
heavy-duty  appUances  like  air  conditioners,  dish- 
washers, clothes  washers,  dryers,  refrigerators, 
and  water  heaters.  Have  you  ever  noticed  your 
room  lights  dim  for  a  second  when  a  heavy 
appliance  kicks  on?  The  sudden  demand  for 
power  momentarily  drains  the  circuit  and  lowers 
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the  voltage.  Those  kinds  of  fluctuations  aren't 
healthy  for  computers,  whose  chips  are  very  sen- 
sitive to  power  sags  and  surges.  (That's  why 
some  people  invest  in  surge  protectors  or  voltage 
stabilizers.) 

If  you  aren't  sure  whether  a  certain  wall  out- 
let is  wired  to  the  same  circuit  as  another  outlet 
serving  a  heavy  appliance,  test  it  by  plugging  in 
a  lamp.  Then  switch  on  some  of  the  major  appli- 
ances in  your  home  while  someone  watches  the 
lamp  for  any  telltale  dimming,  if  an  outlet  is  af- 
fected, you  may  have  to  run  an  extension  cord 
from  a  more  distant  socket  to  roach  your  com- 
puter svstem.  This  is  particularly  true  in  houses 
and  apartment  buildings  with  older  wiring. 

Ql'm  moving  to  another  state  and  I'd  like  to 
transport  my  computer  by  plane.  Do  you 
think  it  would  be  safe  in  the  baggage 
compartment? 

A  Recently  some  of  COMPUTEl's  editors  went 
on  a  trip  to  the  Comdex  trade  show  in  Las 
Vegas  and  witnessed  some  unpleasant  violence 
to  a  Compaq  transportable  computer.  Although 
the  Compaq  is  one  of  the  better  transportables, 
by  the  time  the  poor  computer  tumbled  off  the 
airport  conveyor  belt  onto  the  revolving  baggage- 
claim  carousel,  it  looked  almost  destroyed.  The 
top  of  the  case  was  torn  off,  exposing  the  built-in 
monitor  screen  and  delicate  disk  drives.  Heavy 
hard-shell  suitcases  kept  sliding  off  the  conveyor 
belt  and  bashing  into  the  computer,  knocking 
more  parts  loose.  Wires  and  cables  were  hanging 
out.  It  wasn't  pretty. 

Based  on  what  we  saw  that  day,  and  on 
other  airline  experiences,  our  advice  is  not  to 
ship  a  computer  as  baggage  unless  it's  very  well 
packed  and  padded,  preferably  in  its  original  box 
with  the  form-fitting  Styrofoam  inserts.  Have  you 
ever  seen  the  TV  commercial  in  which  a  suitcase 
is  batted  around  by  an  ape?  If  your  computer  is 
packed  well  enough  to  withstand  that  kind  of 
battering,  you're  probably  safe.  Otherwise,  you 
might  consider  another  method  of  shipping. 

Incidentally,  if  you're  traveling  by  air  with  a 
computer  as  carry-on  baggage,  insist  on  having  it 
hand-checked  when  passing  through  security 
checkpoints.  We  know  of  a  newspaper  reporter 
who  unknowingly  allowed  his  TRS-80  Model 
100  lap  computer  to  suffer  exposure  from  an  air- 
port x-ray  machine.  "It  just  went  crazy,"  he  said.<? 


NEWS@^PRODUCTS 


Percussion 
Emulator  For 
Apple 

Drum-Key,  recently  introduced 
by  Perifjheral  Visions,  Inc.,  is  an 
electronic  music  interface  hoard 
for  use  with  the  Apple  11  series 
of  computers.  It  will  allow  you 
to  interface  stereos  and  electric 
instrument  amplifiers  to  your 
computer. 

Drum-Key  lets  you  com- 
pose, play,  and  record  percus- 
sion sounds  and  riffs,  as  well  as 
play  along  with  the  100  in- 
cluded rhythm  patterns  and  26 
songs. 

A  complement  of  28  sounds 
is  included.  Among  these  are 
snare,  tom-toms,  cymbals,  cow- 
bell, tambourine,  and  six  sounds 
made  by  conventional  drum 
synthesizers. 

Suggested  retail  price  is 
$139. 

Peripheral  Visions,  Inc. 
Great  Valley  Parkway 
Malvern,  PA  19355 
(215)  627-3535 


or  other  interface.  It  requires  no 
modifications  of  the  computer  or 
other  peripherals.  All  circuitry  is 
contained  in  an  RS-232C  type 
connector  to  minimize  size. 

The  R-Verter  comes  with  a 
software  package  which  in- 
cludes a  smart  terminal  emu- 
lator and  an  RS-232C  device 
handler. 


Most  common  RS-232C 
handshaking  configurations  are 
available  using  internal  jumpers. 

Price  for  the  R-Verter  and 
print  echo  software  is  $49,95. 

Advanced  Interface  Devices,  Inc 
P.O.  Box  2188 
Melbourne,  FL  32902 
(305)  676-1275 


The  R-Verter  allows  most  modems  and  other  RS-232C  devices  to  be  used 
directly  ivith  Atari  computers  without  using  the  Atari  850  Interface  Module. 


R$-232  Modem 
Adapter  For  Atari 

Advanced  Interface  Devices,  Inc., 
has  announced  the  R-Verter,  a 
serial  bus  modem  adapter  for 
Atari  400,  600XL,  800,  and 
800XL  home  computers. 

The  R-Verter  allows  most 
modems  and  other  RS-232C  de- 
vices to  be  used  directly  with 
Atari  computers  without  using 
the  Atari  850  Interface  Module 


Game 

Development 
Program  For  The 
Commodore  64 

Aspiring  arcade-game  designers 
can  develop  graphics  for  their 
games  more  quickly  and  easily 
by  using  the  Graphics  Master. 

Written  for  the  Commodore 
64,  this  programming  aid  adds 
52  new  commands  to  BASIC 


and  has  numerous  features  that 
support  game  development. 

Software  Unlimited  will 
soon  release  a  compiler  to  make 
the  completed  game  run  faster. 

Disk  only;  $29.95._  (Please 
include  $3.00  for  posta'ge  and 
handling.) 

Software  Unlimited 

P.O.  Box  429 

Klamath  Falls,  OR  97601 
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Educational  And 
Entertainment 
Software  For  The 
Ti-99/4A 

American  Software  has  ar^- 
nounced  four  new  software 
packages  for  the  Texas  Instru- 
ments 99/4A. 

In  Fireball,  an  arcade  game 
for  ages  ten  and  older,  you  must 
climb  a  volcano  without  being 
hit  by  fireballs  or  falling  into 
holes.  The  game  requires  either 
the  Editor/ Assembler  cartridge 
or  the  Mini-Memory  cartridge. 
Disk  only;  $16,95. 

Letter  Fun  helps  preschool- 
ers learn  the  letters  of  the  al- 
phabet using  colorful  graphics 
and  music.  The  child  can  choose 
from  three  different  learning 
levels.  Speech  Synthesizer  and 
Extended  BASIC  are  required. 
Cassette  $19.95;  disk  $21.95. 

Try  your  luck  at  the  horse 
racing  track  with  Arfjerican 
Derby.  This  game  is  set  \fp  to 
simulate  the  betting  that  would 
go  on  at  a  track,  including  vari- 
able track  conditions,  an  in- 
sider's sheet,  and  realistic  odds. 
You  can  bet  on  up  to  36  differ- 
ent horses.  Designed  for  ages 
ten  to  adult;  up  to  six  may  play 
at  a  time.  Requires  Extended 
BASIC.  Cassette  $14.95;  disk 
$16.95. 

Speed  Read  was  written  for 
adults  who  want  to  improve 
their  reading  speed.  This  pack- 
age of  programs  includes  infor- 
mation on  the  reading  process 
as  well  as  pacing  aids  and  read- 
ing passages  to  test  your  speed. 
It  requires  Extended  BASIC. 
Cassette  $29.95;  disk  $31.95 
(disk  version  requires  memory 
expansion). 

American  Software  Design  & 
Distribution  Co. 
P.O.  Box  46 

Cottage  Grove,  MN  55016 
(612)  459-0557 
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Home  Educational 
Software  For 
Apple,  Atari,  And 
Commodore 

Sunburst  Communications, 
which  has  supplied  educational 
materials  to  schools  for  12 
years,  has  released  three  new 
products  from  their  microcom- 
puter division. 

The  Incredible  laboratory 
(ages  seven  to  adult)  uses  tlie 
problem-solving  strategy  of  trial 
and  error  and  note-taking  to 
discover  what  combinations  of 
mysterious  chemicals  make  up 
crazy  monsters.  Apple  and  Atari 
versions  are  available. 

Challenge  Math  (ages  6-11) 
lets  children  practice  basic  math, 
estimation,  and  problem-solving 
skills.  Available  for  Apple  and 
Commodore  64. 

Getting  Ready  To  Read  And 
Add  (ages  three  to  sbc)  gives  pre- 
schoolers practice  in  letter  and 
number  recognition.  Available 
for  Apple  and  Atari. 

Suggested  retail  price  for 
each  program  is  $39.95. 

Sunburst  Communications,  Inc. 
Pleasantville,  NY  10570 
(914)  769-5030 


New 
Telecommunications 

Package  For 
Apple 

The  Networker  modem,  recently 
introduced  by  ZOOM  Telephon- 
ies, is  a  complete  telecommuni- 
cations package  for  the  Apple  II, 
II -I- ,  and  He  computers. 

For  $129,  you  get  a  single- 
slot,  direct-connect,  300-baud 
modem,  terminal  software,  and 
a  free  subscription  to  The 
Source. 

An  enhanced  version  of  the 
terminal  software,  Netmaster, 
can  be  purchased  separately  for 
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Apple  owners  can  get  a  complete 
telecommunications  package,  includ- 
ing modem  and  terminal  software,  by 
purchasing  the  Netmaster  system. 

$79.  If  purchased  with  the 
Networker,  the  price  of  the  en- 
tire package  is  $179. 

ZOOM  Telephonies  plans 
to  offer  a  complete  line  of 
modems,  including  modems  for 
the  IBM-PC. 

ZOOM  Telephonies 
107  South  St. 
Boston,  MA  02111 
(617)423-1072 


Telecommunications 
Aid 

Source  Telecomputing  Corpora- 
tion (STC)  has  announced  Apple 
Sourcelink,  the  second  in  its  se- 
ries of  communications  software 
designed  to  supplement  use  of 
The  Source  by  personal  com- 
puter owners. 

The  software  is  compatible 
with  the  new  Apple  modem,  as 
well  as  with  the  Hayes  and 
Transend  modem  products,  and 
is  designed  fcr  the  Apple  II,  He, 
and  in-  with  a  minimum  48K 
of  memory. 

It  combines  features  such  as 
automatic  dial-up  and  sign-on 
procedure  for  Telenet,  Uninet, 
and  Sourcenet  data  communica- 
tions networks;  "one-button" 
access  to  major  services  on  The 
Source;  simultaneous  capture  of 
data  from  The  Source  in  the  Ap- 
ple memory  or  disks,  including 


a  capture  editor;  and  data  trans- 
fer from  Apple  disks  to  The 
Source,  or  vice  versa,  while 
on-line. 

An  additional  feature  al- 
lows Apple  and  IBM  users  to  ac- 
cess automatically  any  number 
of  predetermined  services  and 
data  bases,  once  on-line. 

The  Source 
1616  Anderson  Road 
McLean,  VA  22102 
(703)  734-7500 

Inexpensive  Lighf 
Pen  For 
Commodore 
Computers 

Creative  Electronics  has  an- 
nounced the  introduction  of  a 
new  light  pen  for  the  Commo- 
dore 64  and  VIC-20. 

The  light  pen,  which  offers 
close  to  one-pixel  accuracy  for 
high-resolution  graphics,  comes 
with  two  sample  programs. 

Both  versions  retail  for 
$14.95. 

Creative  Electronics 
P.O.  Box  4253 
1714  Sandalwood 
Thousand  Oaks,  CA  91360 
(805)  492-1506 


Alphabet,  Math 
Games  For 
Children 

Two  educational  software  games 
designed  to  help  children  under- 
stand the  alphabet,  muitiplica- 
tion,  and  division  have  been 
introduced  by  Avalon  Hill 
Game  Company's  Intelligence 
Quest  Software  division. 

DIVEX,  appropriate  for  ages 
8-12,  has  three  levels  of  multi- 
plication and  division  to  master, 
and  requires  a  child  to  use 
mathematical  skills  to  protect 
his  or  her  "land"  from  incorrect 
answers. 

It  is  available  on  diskette 


($21)  for  Ataris  with  at  least 
32K  memory.  Cassette  editions 
($16)  for  the  Commodore  64 
and  Atari  will  be  available  later. 

In  ABC  Caterpillar,  the 
player,  controlling  a  bright 
green  caterpillar,  searches  for 
letters  of  the  alphabet  as  they 
pass  by  on  the  screen.  The  goal 
is  to  find  and  gobble  up  the  let- 
ters in  alphabetical  order. 

For  children  3-8  years  old, 
ABC  Caterpillar  is  available  for 
the  VIC-20  at  a  cost  of  $16.  A 
Commodore  64  edition  is 
planned  also. 

Intelligence  Quest  Software 
4517  Harford  Road 
Baltimore,  MD  21214 
(301)  254-9200 

New  Data  Base 
Management 
Software  For  IBM 
Home  Computers 

Condor  Jr.  is  a  data  base  manage- 
ment system  specially  customized 
for  beginning  microcomputer 
users. 

The  program  is  available  for 
the  IBM-PC  and  PCjr,  and  re- 
tails for  $195. 

Beyond  its  extensive  math 
and  printing  capabilities.  Condor 
Jr.  can  be  upgraded  to  Condor  3 
(a  more  sophisticated  data  base 
manager).  Other  features  in- 
clude multilevel  sorts  and  a  va- 
riety of  report  generators. 

Condor 

2051  S.  State  St. 
Ann  Arbor,  MI  48104 
(313)  769-2418 


New  Speech 
Synthesizers 

Three  new  Voice  Box  speech 
synthesizers  have  been  intro- 
duced by  The  Alien  Group,  two 
of  which  are  designed  for  Apple 
II  and  Apple-compatible  com- 
puters. The  third  is  for  any  ma- 


chine which  has  a  standard 
(RS-232C)  serial  port. 

Using  a  new  speech  chip, 
the  programs  produce  speech 
directly  from  English  text,  add- 
ing inflection  either  automati- 
cally or  according  to  numbers 
inserted  by  the  user.  All  units 
have  an  unlimited  vocabulary, 
and  can  speak  with  a  male  or 
female  voice,  fast  or  slow,  or 
loud  or  soft,  depending  on  what 
commands  are  added  to  the 
text.  It  is  not  necessary  to  mark 
syllable  boundaries  or  to  use 
phoneme  spelling  when  adding 
intonation. 

The  Voice  Box  3m  model, 
designed  for  the  Apple,  retails 
for  $129.  Voice  Box  3i,  also  for 
the  Apple,  costs  $219.  Prices  in- 
clude a  Voice  Box  board,  disk 
software,  and  external  speaker. 

The  Voice  Box  3s,  which 
can  connect  to  any  computer 
via  the  standard  RS-232C  serial 
interface,  includes  an  integral 
speaker  and  retails  for  $269. 

The  Alien  Group 
27  West  23rd  St. 
New  York,  NY  10010 
(212)  741-1770 

New  Product  releases  are  selected  from  sub- 
missions for  reasons  of  timeliness,  available 
space,  and  general  interest  to  our  readers.  We 
regret  that  we  are  unable  to  select  all  new 
product  submissions  for  publication.  Readers 
should  be  aware  that  we  present  here  some 
edited  version  of  material  submitted  by  ven- 
dors and  are  unable  to  vouch  for  its  accuracy 
at  time  of  publication. 

COMPUTE!  welcomes  notices  of  up- 
coming events  and  requests  that  the 
sponsors  send  a  short  description,  their 
name  and  phone  number,  and  an  address 
to  which  interested  readers  may  write  for 
further  information.  Please  send  notices 
at  least  three  months  before  the  date  of  the 
event,  to:  Calendar,  P.O.  Box  5406, 
Greensboro,  NC  27403.  (8 


COMPUTE! 

The  Resource 
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MLX 


Machine  Language  Entry  Program 

For  Commodore  64  Charles  Brannon,  Program  Editor 


MLX  is  a  Mm-sai'ing  uii\it\j  that  aUow^i  almo^i  fail-safe 
entry  of  machine  laii^ua^c  prognvns  ptibHsht'd  iii  COMPUTE!. 
You  need  to  kno-w  notlii}i^nlviit  mtJLluue  language  to  use 
MLX — it  xvns  designed  for  everyorw. 


MLX  is  a  new  way  to  enter  long  machine  language 
(ML)  programs  with  a  minimum  of  fuss.  MLX  lets  you 
enter  the  numbers  from  a  special  list  that  looks  similar 
to  BASIC  DATA  statements.  It  checks  your  typing  on  a 
line-by-iine  basis.  It  won't  let  you  enter  illegal  charac- 
ters \vhen  you  should  be  typing  numbers.  It  won't  let 
you  enter  numbers  greater  than  255  {forbidden  in  ML). 
It  won't  let  you  enter  the  wrong  numbers  on  the  wrong 
line.  In  addition,  MLX  creates  a  ready-to-use  tape  or 
disk  file.  You  can  then  use  the  LOAD  command  to  read 
the  program  into  the  computer: 

LOAD  "filename",!, 1     (for  tape) 
LOAD  "fitenanie",8,l     (for  disk) 

To  start  the  program,  you  enter  a  SYS  command 
that  transfers  control  from  BASIC  to  machine  language. 
The  starting  SYS  number  appears  in  the  article. 

Using  MLX 

Type  in  and  save  MLX  for  your  64  (you'll  want  to  use  it 
in  the  future).  When  you're  ready  to  type  in  an  ML 
program,  run  MLX.  MLX  asks  you  for  two  numbers: 
the  starting  address  and  the  ending  address.  These 
numbers  are  given  in  the  article  accompanying  the  ML 
program. 

You'll  see  a  prompt  corresponding  to  the  starting 
address.  The  prompt  is  the  current  tine  you  are  entering 
from  the  listing.  It  increases  by  six  each  time  you  enter 
a  line.  That's  because  each  tine  has  seven  numbers — six 
actual  data  numbers  plus  a  cliecksuni  number.  The  check- 
sum verifies  that  you  typed  the  previous  six  numbers 
correctly.  If  you  enter  any  of  the  six  numbers  wrong, 
or  enter  the  checksum  wrong,  the  computer  rings  a 
buzzer  and  prompts  you  to  reenter  the  line.  Jf  you 
enter  it  correctly,  a  hell  tone  sounds  and  you  continue 
to  the  next  line. 

MLX  accepts  only  numbers  as  input.  If  you  make 
a  typing  error,  press  the  INST/DEL  key;  the  entire 
number  is  deleted.  You  can  press  it  as  many  times  as 
necessary  back  to  the  start  of  the  line.  If  you  enter 
three-digit  numbers  as  listed,  the  computer  automati- 
cally prints  the  comma  and  goes  on  to  accept  the  next 
number.  If  yoLi  enter  less  than  three  digits,  you  can 
press  either  the  SPACE  bar,  or  RETURN  key  to 
advance  to  the  next  number.  The  checksum  auto- 
matically appears  in  inverse  video  for  emphasis. 

To  simplify  your  typing,  MLX  redefines  part  of 
the  keyboard  as  a  numeric  keypad  (lines  581-584): 


U     I 

O 

7 

8 

9 

H     J       K 

L 

become    0 

4 

5 

6 

M    , 

1 

2 

3 

MLX  Commands 

When  you  finish  typing  an  ML  listing  (assuming  you 
type  it  all  in  one  session),  you  can  then  save  the  com- 
pleted program  on  tape  or  disk.  Follow  the  screen 
instructions.  If  you  get  any  errors  while  saving,  you 
probably  have  a  bad  disk,  or  the  disk  is  full,  or  you've 
made  a  typo  when  entering  the  MLX  program  itself. 

You  don't  have  to  enter  the  whole  ML  program  in 
one  sitting.  MLX  lets  you  enter  as  much  as  you  want, 
save  it,  and  then  reload  the  file  from  tape  or  disk  later, 
MLX  recognizes  these  commands: 

SHIFT-S:  Save 
SHIFT-L:  Load 
SHIFT-N:  New  Address 
SHIFT-D:  Display 

When  you  enter  a  command,  MLX  jumps  out  of 
the  line  vou'vc  been  typing,  so  we  recommend  you  do 
it  at  a  new  prompt.  Use  the  Save  command  to  save 
what  you've  been  working  on.  It  will  save  on  tape  or 
disk  as  if  you've  finished,  but  the  tape  or  disk  won't 
work,  of  course,  unHl  you  finish  the  typing.  Remember 
what  address  you  stop  at.  The  next  time  you  run  MLX, 
answer  all  the  prompts  as  you  did  before,  then  insert 
the  disk  or  tape.  When  you  get  to  the  entry  prompt, 
press  SHIFT-L  to  reload  the  partly  completed  file  into 
memory.  Then  use  the  New  Address  command  to 
resume  typing. 

To  use  the  New  Address  command,  press  SHIFT-N 
and  enter  the  address  where  you  previously  stopped. 
The  prompt  will  change,  and  you  can  then  continue 
typing.  Always  enter  a  New  Address  that  matches  up 
with  one  of  the  line  numbers  in  the  special  listing,  or 
else  the  checksum  won't  work.  The  Display  command 
lets  you  display  a  section  of  your  typing.  After  you 
press  SHIFT-D,  enter  tivo  addresses  within  the  line 
number  range  of  the  listing.  You  can  abort  the  listing 
by  pressing  any  key. 

What  if  you  forgot  where  you  stopped  typing? 
Use  the  Dispiav  command  to  scan  memory  from  the 
beginning  to  the  end  of  the  program.  When  you  reach 
the  end  of  your  typing,  the  lines  will  contain  a  random 
pattern  of  numbers.  When  you  see  the  end  of  your 
typing,  press  any  key  to  stop  the  listing.  Use  the  New 
Address  command  to  continue  typing  from  the  proper 
location. 

MLX:  Machine  Language  Entry 

10  REM  LINES  CHANGED  FROM  MLX  VERSIOtsI  2.0 
0  ARE  750,765,770  AND  860       : rem  50 

100  PRINT"CCLR}E6g";CHR$(142) ;CHR$(8) ; : 
POKE53281, 1:POKE53280,1        : rem  67 

101  POKE  788,52:REM  DISABLE  RUN/STOP 

:rem  119 
110  PRINT"lRVS}{39  SPACES}";      : rem  176 
120  PRINT  "{RVSH  14  SPACES}  {right]  {OFF} 
i*3£{RVS} {right}  {right} {2  SPACES} 
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^*3lOFF}g*UfRVS}£{RVS} 

[14  SPACES  l'^;  :rem  250 

130  PRINT" [RVS} (14  SPACES] [RIGHT}  gGg 
{RIGHT}  [2  RIGHT}  {OFF }£{ RVS jig* 3 
{0PF}g*§{RVS}[l4  spaces!"  ,-    ~:rein  35 
140  PRINT" C RVS} [41  SPACES}"       : rem  120 
200  PRINT" [2  DOWN }{ PUR }EbLK}  MACHINE  LANG 
UAGE  EDITOR  VERSION  2.01 [5  DOWN}" 

J  rem  23  7 
210  PRINT"g53{2  UPlSTARTING  ADDRESS? 

[8  SPACES} (9  LEPT}"r  : rem  143 

215  INPUTS : F=1-F;C?=CHRS (31+ 11 9*F) 

:rein  166 

220  IFS<2560R( S>40960ANDS<491 52 )ORS> 53247 

THENGOSUB3000:GOTO210         : rem  235 

225  PRINT: PRINT: PRINT  : rem  180 

230  PRINT"g53(2  UPJeNDING  ADDRESS? 

[8  SPACES} [9  LEFT}"? !lNPUTE:F=l-F:C$= 
CHR$(31+119*F)  :rem  20 

240  IFE<256ORCE>40960ANDE<491 52 )ORE> 53247 
THENGOSUB3000:GOTO230         : rem  183 
250  IFE<STHENPRINrC$; "f RVS} ENDING  <  START 
[2  SPACES]":GOSUB1000!GOTO  230 

:rem  176 
260  PRINT: PRINT: PRINT  :rem  179 

300  PRINT " f CLR  j " r  CHR$ ( 14 ) : AD=S : POKEV+2 1 , 0 

:rem  225 

310  A=1:PRINTRIGHTS("0000"+MID$(STR5(AD), 

2  )  J  5 ) ;  "  :  "  ;  : rem  33 

315  F0RJ=AT06  ; rem  33 

320  GOSOB570:IFN=-1THENJ=J+N:GOTO320 

:rem  228 
390  IFN=-211THEN  710  • rem  62 

400  IFN=-204THEN  790  : rem  64 

410  IFN=-206THEHPRINT: INPUT" [DOWN}eNTER  N 
EW  ADDRESS ",-2Z  Trem  44 

415  IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 

[RVSJOUT  OF  RANGE" ;GOSUB1000:GOTO410 

:reni  225 
417  IFN=-206THENAD=ZZ:PRINT:GOTO310 

:rem  238 

420  IF  No-196  THEN  480  :  rem  133 

430  PRINT: INPUT"DISPLAY;FROM";F:PRINT, "TO 

";:INPUTT  : rem  234 

440  IFF<SORF>EORT<SORT>ETHENPRINT"AT  LEAS 

T";S;"{LEFT},  NOT  MORE  THAN" ; E:GOT043 

0  :rem  159 

450  F0R1=FT0TSTEP6 : PRINT: PRINTRIGHT$ ( "000 
0"+MID$(STR$(l),2),5);":";  : rem    30 

451  FORK==0TO5:N=PEEK(I+K)  jPRINTRlGHT$  (  "00 
"+MID$(STRS{N),2),3);",";  : rem    66 

460    GETA? : I FA$ > " "THENPRINT : PRINT : G0T03 10 

:rem    25 
470    NEXTK:PRINTCHR$C20); :NEXTI :PRINT : PRIN 

T:GOTO310  -rem    50 

480    IFN<0    THEN    PRINT: GOT03 10  : rem    168 

490    A(J)=N:NEXTJ  :rem    199 

500    CKSUM=AD-INT(AD/256)*256:FORI=IT06:CK 

SUM=(CKSUM+A(I))AND255:NEXT       : rem    200 

510  PRINTCHR$(18); :GOSUB570: PRINTCHR$ (146 
) !  J  rem  94 

511  1PN=-1THENA=6:G0T0315  : rem  254 
515  PRINTCHR$(20) : 1FN=CKSUMTHEN530 

;rem  122 
520  PRINT: PRINT "LINE  ENTERED  WRONG  :  RE~E 

NTER" : PRINT : GOSUB1000 : GOT031 0 : rem~17  6 
530  GOSUB2000  -rem  218 

540  F0RI=1T06 ; POKEAD+I-1 , A ( I ) ; NEXT : POKE54 

272,0:POKE54273,0  : rem  227 

550  AD=AD+6:IF  AD<E  THEN  310  : rem  212 
560  GOTO  710  -jrem  108 

570  N=0:Z=0  -rem  88 


580  PRINT" i£3"r  :rem  81 

581  GETA5:IFA$=""THEN5ai  : rem  95 

582  AV=- (A$="M" ) -2* ( A$=" , " )-3* ( A$=" . " ) -4* 
(A?=" J" ) ~5* ( A$="K" > -6* ( A$="L" ) : rem  41 

583  AV=AV-7*(A5="U" )-8*(A$="I" )-9*{A|="0" 
}:IFA$="H"THENA5="0"  : rem  134 

584  IFAV>0THENA$=CHR?(48+AV)      trem  134 

585  PRINTCHR$(20); sA=ASC(A$) t IPA=130RA=44 
ORA=32THEN670  : rem  229 

590  IFA>12BTHENN=-A: RETURN        : rem  137 
600  IFAO20  THEN  630  :  rem  10 

610  GOSUB690:IF1=1ANDT=44THENN=-1: PRINT" 

fOFF}{LEFT}  {LEFT}"; :GOTO690   : rem  62 
620  GOTO570  j rem  109 

630  IFA<48ORA>5  7THEN580  : rem  105 

640  PRIKTA?; :N=N*10+A-48  : rem  106 

650  IFN>255  THEN  A=20 :GOSUB1000 :GOTO600 

:rem  229 
660  Z=Z+1:IFZ<3THEN580  : rem  71 

670  IFZ=0THENGOSUB1000:GOTO570    : rem  114 
680  PRINT", ";: RETURN  : rem  240 

690  S%=PEEK ( 209 ) +256  *  PEEK ( 210 }+PEEK( 211 ) 

: rem  149 

691  F0RI=1T03:T=PEEK(S%-I)         : rem  67 
695  IFT<>44ANDT<>58THENPOKES%-I,32:NEXT 

:rem  205 
700  PRINTLEFT$("{3  LEFT )", I-l );: RETURN 

;  rem  7 
710  PRINT"{CLR}{RVS}***  SAVE  ***[3  DOWN}" 

: rem  236 

715  PRINT"  {2  DOSVN}  (PRESS  [  RVS  }  RETURN  [  OFF} 

ALONE  TO  CANCEL  SAVE) [DOWN} " -rem  106 

720  F$=""; INPUT" [DOVTO}  FILENAME" ;F$ : I FF$= 

""THENPRINT:PRINT:GOTO3I0      : rem  71 

730  PRINT: PRINT" (2  DOWN} [ RVS }T[ OFF }APE  OR 

[RVS}D{0FF}ISK:  (T/D)"       : rem  228 

7  40  GETA$ I IFA?  <> "T " AKDA$  <> " D "THEN7  40 

; rem  36 

750  DV=X-7*(A5="D") :IFDV=8THENF$="0: "+F$: 

OPEN15,8,15, "S"+F$:CL0SE15    ; rem  212 

760  T$=F$ : ZK=PEEKC  53 ) +256*PEEK( 54 )-LEN(T$ 

):POKE782,ZK/256  : rem  3 

762  POKE781,ZK-PEEK(782)*256:POKE780,LEN( 
T$) :SYS65469  ; rem  109 

763  POKE780,1;POKE781,DV:POKE782,1:SYS654 
66  I  rem  69 

765  K=S: POKE2  54,K/256 : POKE253 , K-PEEK( 254) 
*256:POKE780,253  :rem  17 

766  K=E+l : POKE782 , k/256 : POKE781 , K-PEEK ( 78 
2)*256:SYS65496  : rem  235 

770  IF(PEEK(783)AND1)OR{191ANDST)THEN780 

trem  111 

775  PRINT" [DOWN] DONE. [DOWN} " :GOTO310 

: rem  113 

780  PRINT" [DOWN} ERROR  ON  SAVE. [2  SPAGES}T 
RY  AGAIN. ":IFDV=1THEN7 20      : rem  171 

781  0PEN15,Q,15:INPUT#15,E1$,E2$:PRINTE1? 
rE2$:CLOSE15:GOTO720  : rem  103 

790  PRINT "{clrI [RVS}***  LOAD  ***[2  DOWN}" 

:rem  212 

795  PRINT" [2  DOWN} (PRESS  [RVS } RETURN {OFF  3 

ALONE  TO  CANCEL  LOAD)"        ; rem  82 

800  F$="":INPUT"{2  DOWN}  FILENAME" ;F$ : IFF 

$=""THENPRINT:GOTO310         : rem  144 

810  PRINT:PRINT"{2  DOWN} { RVS )T{ OFF }APE  OR 

{RVS}dE0FF|isK:  (T/D) "       :rem227 

820  GETA$:IFA$<>"T"ANDA5<>"D"THEN820 

: rem  34 
830  DV=1-7*(A5="D") :IFDV=aTHENF$="0: "+F$ 

;rem  157 

840  T$=F$ :2K=PEEK( 53 )+256*PEEK( 54) -LEN(T$ 

) :POKE782,ZK/256  : rem  2 
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841  POKE781,ZK-PEEK(782)*256jPOKE780,LEN( 

T$)rSYS65469  : rem  107 

845  POKE780 , 1 t P0KE781 , DV: POKE782 , 1 : SYS654 

66  :rem  70 

850  POKE780,0:SYS65493  :rem  11 

860  IF(PEEK(783)AND1)OR{191ANDST)THEN870 

: rem  111 
865  PRINT" (down }DONE. ":GOTO310  : rem  96 
870  PRINT "[DOVral ERROR  ON  LOAD. {2  SPACES }T 

RY  AGAIN. { DOWN} ":IFDV=1THEN800 

:rein  172 
880  OPENI5 ,8,15: INPUT* 15 , El$ , E2$ : PRINTEl $ 

;E2$:CLOSE15:GOTO800  : rem  102 

1000  REM  BUZZER  : rem  135 

1001  POKE54296, 15!POKE54277,45:POKE54278, 


165  :rem  207 

1002  POKE54276,33:POKE  54273 ,6:POKE54272 , 
5  :rem  42 

1003  FORT=1TO200:NEXT:POKE54276,32:POKE54 
273,0:POKE54272,0:RETURN     .-rem  202 

2000  REM  BELL  SOUND  : rem  78 

2001  POKE54296,15:POKE54277,0:POKE54278,2 
47  ; rem  152 

2002  POKE  54276, 17:POKE54273,40:POKE54272 
, 0  : rem  86 

2003  F0RT=1 TOl 00: NEXT :POKE542 76, 16: RETURN 

;rem  57 

3000  PRINTCS;"{RVS}NOT  ZERO  PAGE  OR  ROM": 

GOTO1000  : rem  89 


CAPUTE! 

Modificotions  Or  Corrections  To  Previous  Articles 


Atari  XL  Compatibility  Update 

Upon  testing  with  our  new  800XL,  we  have  been 
pleased  to  discover  that  the  vast  majority  of  our 
previously  published  Atari  programs  will  run 
without  modification.  Of  the  few  programs  that 
will  not  run  as  is,  almost  all,  including  the  popu- 
lar "Scriptor"  word  processor  (April  1983),  op- 
erate properly  when  used  with  the  Atari  TraTis- 
lator.  This  program,  available  on  a  disk  (DX5063) 
from  Atari,  enables  most  programs  written  for 
the  older  Ataris  to  be  run  on  the  new  XL  models. 
So  far  we  have  discovered  only  two  programs, 
"Demons  Of  Osiris"  (January  1984)  and  "Ski" 
(February  1983),  that  the  Translator  cannot  cure. 
These  programs  can  be  run  on  the  new  computers 
only  if  you  have  a  BASIC  cartridge  from  the 
older  Atari  series  to  plug  in. 

For  information  on  obtaining  the  Translator 
disk,  call  Atari's  Customer  Relations  Department  at 
800-538-8543  (inside  California,  800-672-1404), 

MLX  For  Commodore  64 

There  is  an  error  in  the  article  accompanying  the 
"MLX"  machine  language  editor  program  in  the 
March  and  May  issues.  The  article  states,  "If  you 
enter  less  than  three  digits,  you  can  press  either 
the  comma.  SPACE  bar,  or  RETURN  key  to  ad- 
vance to  the  next  number."  However,  when  the 
numeric  keypad  feature  was  added  to  MLX,  the 
comma  key  was  redefined  as  the  numeral  2.  As  a 
result,  the  comma  key  can  no  longer  be  used  to 
advance  to  the  next  number;  however,  the  SPACE 
bar  and  RETURN  key  still  work  as  stated. 

A  number  of  readers  have  expressed  concern 
at  the  number  of  revisions  to  MLX  since  it  was 
first  published.  These  changes  generally  repre- 
sent enhancements,  not  corrections.  Any  version 
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of  MLX  may  be  used  to  type  in  any  program  for 
the  64  presented  in  MLX  format,  regardless  of 
whether  the  program  is  from  COMPUTE!,  COM- 
PUTEI's  GAZETTE,  or  a  COMPUTE!  book.  The  only 
version  of  64  MLX  known  to  contain  a  bug  is  the 
one  from  the  March  issue,  and  the  correction  was 
given  in  the  May  "CAPUTE!"  column. 

Automatic  Proofreader  For  Ttie  64 

The  final  paragraph  of  the  article  which 
accompanies  the  "Automatic  Proofreader"  pro- 
gram each  month  indicates  that  on  the  64  the 
Proofreader  can  be  protected  during  tape  LOADs 
and  SAVES  by  typing  POKE  178,165.  Richard 
Murphy  points  out  that  the  proper  value  to  pro- 
tect the  Proofreader  is  POKE  178,251,  This  POKE 
is  not  necessary  for  disk  operations, 

64  Hi-Res  Screen  Printing 

Many  readers  have  asked  for  a  way  to  print  a 
copy  of  the  elaborate  designs  they  create  with 
the  "3-D  Plotting"  program  from  the  May  issue 
(p.  58).  Reader  Henry  Mervis  observes  that,  for 
Commodore  64  owners,  the  solution  is  in  the 
same  issue,  in  the  "Hi-Res  Graphics  Editor"  pro- 
gram (p.  82).  To  create  a  hard  copy  of  the  results 
of  the  3-D  Plotting  programs  (or  of  almost  any 
other  hi-res  screen  display),  load  the  machine 
language  program  you  created  for  the  Hi-Res 
Editor  (Program  2,  p.  80),  using  the  LOAD  com- 
mand format  described  on  page  82.  Remember  to 
enter  the  line  to  move  the  BASIC  memory  area: 

POKE  642,128:POKE  44,128:FOKE  32768,0:NEW 

Next,  load  either  "Rectan"  (Program  1,  p. 
60)  or  "Spheri"  (Program  2,  p.  62).  For  Rectan, 
change  line  600  to  read  600  SYS  49152;  for 
Spheri,  change  line  610  to  610  SYS  49152.  Then 
RUN  the  program  in  the  normal  manner.  When 
your  design  is  complete,  a  rectangle  will  appear 
on  the  screen.  Turn  on  your  printer  and  press  the 
P  key  and  your  design  should  begin  to  print. 

The  screen  dump  routine  will  work  only  on 
a  Commodore  1525  printer  or  with  an  interface 
that  emulates  the  1525.  The  routine  will  not 
work  with  Commodore  1526  printers.  © 
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Learn  to  fly  wliti  the  Dow-4  Gazellic,  a  realistic  IFR  simulation 
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L\;co  Computer  Marketing  &  Consultants 

TOLL  FREE  800-233-8760 


TO  ORDER 

CALL  US 


In   PA   1.717.  327-1824 
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DRIVES 


RANA 


PERCOM 

ATARI  AT88.PD S3S9-CIO 

AT.68  DOUBLEB S1  29.00 

ADD-ON  DRIVES S  CALL 

HARD                  FOR  5  MEG 

DISK              APPLE  10  MEG 

DRIVES          IBM-PC  15  MEG 

AVAILftBLE  20  MEG 


S  commodore 

VIC  64 S  CALL 

VIC  1541   S239.00 

SSt 
KNIGHTS  OF  DESERT  .526,75 

EAGLES..  S26  75 

TIGERS  IN  SNOW 526,75 

COMBAT  LEADER ,,S26,75 

BATTLE  FOR  N    S26  75 

EPVX  64 

JUMPMAN  C/D S27.75 

JUMPMAN  JRR S27.75 

PITSTOPR S27.75 

TEMPLE  ASPHAI  S27,7S 
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DROL  D  524,95 

LODE  RUN  D $24.95 

SEAFOXO  522.95 
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AE  O S24.75 
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BUSINESS  GRAPHICS       S22S,O0 
GRAPHICS  LANGUAGE, , ,  5299,00 

REQUIRES  COBAL  RUNTIME 

ACCTS  PAYABLE  I  S49S.00 

ACCTS  PAYABLE  II  ,.,.51695.00 

PAYROLL  1 5495.00 

PAYROLL  II  51695,00 

GENERAL  LEDGER  I,,,, $495. 00 
GENERAL  LEDGER  II  ,  ,,S1  695.00 


TRAK  DISK  DRIVES 
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AT-D2  TURBO  PAK  $22,95 

PRINTER  CABLE $22.95 
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DISK  DRIVES 
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APPLE  326K  DRIVE $229,00 
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COMMODORE  VIC  1 74K. . .  $28900 
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PROFESSIONAL  SOFTWARE 

WORD  PRO  3     $59,75 

SPELLRIGHJ.   539-75 

BOTH  TOGETHER 579.75 
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BOOK  OF  APPLE 

SOFTWARE 516.95 

GENERAL  LEDGER SI 79.95 

ACCOUNTS  PAY $179.95 

ACCOUNTS  REC 5179.95 

PAYROLL $179.95 

PROPERTY  MGMT  $329.95 

CP/M  VERSION 

PEACH  PACK  4 5295.00 

ACCTS  PAYABLE  III $549.00 

ACCTS  PAYABLE  IV 5899. OO 

ACCTS  REC  III  5549.00 

ACCTS  REC  IV  $899.00 

GENERAL  LEDGER  lit...  5549.00 
GENERAL  LEDGER  IV...  5399.00 
INVENTORY  MGMT  L.  ..$549.00 
INVENTORY  MGMT  11, .  ,5899.00 

PAYROLL  III 5549.00 

PAYROLL  IV 5899.00 

SALES  INVOICING  I  ...5549.00 
SALES  INVOICING .5399,00 


TO  ORDER 


CALL  TOLL  FREE 


or  s«nd  ordsr  to 


Lyco  Computer 
P.O.  Box  5088 
In  PA  1   71 7-327-1 824     Jersey  Shore.  PA  1 774C 


800-233-8760 


DISKETTES 

ELEPHANT 

SINGLE  SIDE  SD(IO)  ...517.75 
SD(IOO) $16.75/10 

SINGLE  SIDE  DD(  10)  ...521.75 
DD|100) 520,75/10 

DOUBLE  SIDE  DD{10)  ,,,$26,75 
DDOOO) 524  75/10 

MAXELL 

MD1  (10) 527,75 

M02nO| 537,75 

CERTRON 
CASSETTES 

CC.10  112) 515.99 

CC.20n21 517.99 


INNOVATIVE 
CONCEPTS 

DISK  STORAGE  (10) 54,95 

DISK  STORAGE  (15) 59,95 

DISK  STORAGE  (25) $19,95 

DISK  STORAGE  (50) 526,75 

ROM  STORAGE  (10) 524.75 

MODEMS 

ANCHOR  MARK  I $45.75 

ANCHOR  MARK  II $79,75 

HAYES  SMART $239,00 

HAYES  MICRO  II S309.00 

MICROBIT  lOOOC $129.00 

CAT 5144.00 

D-CAT 5155.00 

J-CAT 51  15,00 

APPLE  CAT  II..., 5279,00 

212  APPLE  CAT 5589,00 

INFOCOM 

DEADLINE $34,75 

ZORK  1,2,  ara    534,75 

ENCHANTER 534.75 

PLANETFALL 534,75 

SPINNAKER 

KINOERCOMP  D 521.7  5 

STORY  MACH  D  ...,...,,.523.75 

FACE  MAKER  0  523.75 

SNOOPER  TR  D 529.75 

SNOOPER  T2  D 529.75 

DELTA  DRAW  D 532.75 

FRACTION  FD 523.75 

ALPHABET  ZOO  D 521-75 

MOST  AMAZING  D 526.75 

RHYMES  S.  RIDD 521.75 

APPLE  DUMPLING  GX,  , ,  ,599,75 
APPLE  DUMPLING 

16K  BUFFER 5179.75 

TEXT  PRINTER 

INTERFACE     579,75 


COMPUTER 
CARE 

BIB 


DISK  DRIVE  CLEANER 
COMPUTER  CARE  KIT  , 


-512.751 
,$19,75i 


NORTRONICS 

DISK  DRIVE  CLEANER 
WITH  SOFTWARE  FOR 
IBM.PC.  ATARI,  VIC. 

APPLE,  a  Tl     529.75 

DISKCLEANERREFILLS  514  75 
CASS  DRIVE  CLEANER. ...59,95 
MEDIA  BULK  ERASER  ,,,546,75 


ATARI 

INFOCOM 

DEADLINE $34,75 

ZORK  1.2.  or  3 ,.$26.75 

ENCHANTER $34.75 

EOUFUN 

GULP  ARROW 

GRAPHICS 524.75 

FACE  FLASH  524.75 

CONTINENTAL 

HOMEACCOUNTO  $44.75 

TAX  ADVANTAGE 535.75 

BOOK  Of  ATARI 
SOFTWARE 51 6.95 


MONITORS 

SAKATA  COLOR 5249. OO 

TAXAN  GREEN 511900 

TAXAN  AMBER 5129-00 

TAXAN  RGB 

COMPOSITE $2B9.0O 

ZENITH  AMBER 5105.00 

ZENITH  GREEN... S95.00 

GORILLA  GREEN $88.00 

GORILLA  AMBER S95-0O 

NEC  JB1260 599,00 

NEC  JB1205 $145,00 

NEC  JB121SC0L0R  ,-526900 

AMDEK  GREEN  S145-0O 

AMDEK  AMBER S149,0O 

AMDEK  COLOR  1- 5289,00 

SSI 

KNIGHTS  OF  DESERT  .,,$26,75 

EAGLES 526,75 

TIGERS  IN  SNOW 526,75 

GERMANY  1985 536,75 

BATTLE  FOR 

NORMANDY 526,75 

SHATTERED  ALLIANCE, ,  .539,75 

SIERRA  ONLINE 

ULTIMA  II $39.75 

DARK  CRYSTAL  527.75 

ATARISOFT 

PAC  MAN $25.75 

DONKEY  KONG $25.75 

DIG  DUG 525.75 

CENTIPEDE $25.75 

ROBOTRON 525. 75 

PROGRAM  DESIGN 

ANALOGIES 518.50 

PREP  FOR  SATS $79.75 

PRESCHOOL  10 

BUILDER 518.75 

READING  COMP 518,75 

VOCABULARYBUILDER-    ,518,75 

SCARBOROUGH 

SONG  WRITER  D 527,75 

MASTE R  TYPE $27.75 

EASTERN  HOUSE 

MONKEY  WRENCH  II  ,,,,552,75 

DONT  ASK  SOFTWARE 

SAM 539,75 

ABUSE 522,75 

WORD  RACE - 524,75 

PROGRAM  DESIGN 

ANALOGIES $14,50 

PREP  FOR  SAT'S 579-75 

PRESCHOOL  10 

BUILDER 516,75 

READING  COMP 516,75 

VOCABULARY  BUILDER...  $16.75 
LETS  SPELL 514.75 


Lyco  Computer  Marketing  &  Consultants 

T^OLL  FREE  800-233-8760 


TO  ORDER 

CALL  US 


In  PA  t    717-327-1824 


MANNESMANN 
TALLY 

SPIRIT  80 S29S.O0 

MTL-1  60L S559.00 

MTL-180L S775.0O 

NEC 

NEC8023 5369,00 

NeC8025 $699.00 

PRINTER 
INTERFACING 

AVAIUkBLE    FOR    COMMODORE 
VIC.  APPLE.  ATARI.  IBM-PC, 
TBS-80.  Tl.  AND  OTHERS 


STAR     SAVE 

MICRONTICS 


ON  THESE 
IN-STOCK 


GEMINI  lOX S3S9.00 

GEMINI  15X S379.0O 

DELTA  lO S449.00 

DELTA  15 S525,0O 

RADIX  10 S575.0O 

RADIX  15 S675,D0 

POWERTYPE  - SCALL 

SWEETPIModellOO:  ...S549.0O 
STX80 S149.00 


SMITH  CORONA  TP2     ..Sddg.OO 


CITOH 

GORILLA  GX-1  00 ;S169.0O 

GORILLA  SERIAL SI 99.00 

PROWRITEReSIO S335.00 

PROWRITEnil  1575.00 

8600 S899.00 

STARWRITER  $999.00 

PRINTMASTER  S1299.0O 

SHEET  FEEDER S425.00 

620 S929.0O 

630 S1699.00 

8510  SP S499.0O 

SSI  O  SC  P S559.00 

A10  LETTER  OUAL S499.00 


PRINTERS! 

EPSON 


PRINTING  PAPER 

3OO0  SHEETS 

FANFOLD $42,75 

1000  SHEETS 

FANFOLD S19.75 

10O0  SHEETS  LETTER. ..$21. 95 

20O  SHEETS  LETTER S8.99 

150  RAG  STATIONERY...  SI  0.99 
MAILING  LABELS  (1  in)  ...$9.75 
14«t1  1000  FANFOLD  .,,S24. 75 


IDUST  COVERS 

800 $3-99 

400 $3.99 

1200 S3.99 

410 S3, 99 

810 S3. 99 

600XL $5.99 

800XL S5.99 

1050 $6.99 

1010 SS,99 

PROWRITER  $5.99 

GEMINI  10X S5.99 

PERCOM  S5.99 

EPSON $5.99 

,RANA S5.99 

VIC  64/20 S5.99 

VIC  1541  S5.99 


WICO 

COMMODORES  ATARI 

JOYSTICK  $16.75 

RED  BALL $18.75 

BOSS  JOYSTICK  S12.75 

TRACK  BALL $32. 75 

12  FTEXTCORD $6.95 

Tl  ADAPTER S9.95 

APPLE  ANALOG $34.75 

IBM-PC  ANALOG  $34.75 


Rt-eO , .SCALL 

BX-BOFT SFOR 

FX-SO SCURRENT 

FX-100 SPRICES 

OKI  DATA 

80 $SAVE 

82A SON  THESE 

eSA $IN-STOCK 

94 SPRINTERS 

92 SCALL4 

93 SSAVES 


RESTON  64 
[  MINER  2049  ROM  .S29.?5 


TIM6WORKS 

INVENTORY  S39,7S 

ACCOUNTS  REC...  $39^75 
ACCOUNTS  PAY...  S39.75 
GENERAL  LEDGER. $39  75 

PAYTOLL S39,75 

INVENTORY  MAN     $39  75 

CASHFLOW $39,75 

SALES  ANALYSIS  ,.$39.75 
DATA  MANAGER  ...$19.75 

MONEY  MGRC/D $19.95 

CHECKBOOK  C/D  ..$19.95 
FORGET-ME-NOT  -.SI  9.95 

STAR  BATTLE SI  9.95 

ROBOT  REVOLT. ...519.95 
SPELLBOUND  C/0  .$19.95 

SCARBOROUGH  64 
SONG  WRITER  D...S27. 75 
PHI  BETA  FILER....  S32.75 
MASTE R  TYPE $27-75 


HESe4 


I  ADVENTURE  INTERNATIONAL 
ADVENTURE  1-12  ea.$17.75 

SAGA.- $27,75 

PREPPIE 124.75 

DISKEY  $34.75 

SEA  DRAGON $24.75 

KOALA  TABLET $69.75 

PROGRAMMERSG    ...$12-75 
GEOMETRIC  DESIGN,  S22. 75 

LOGO  DESIGN $27.75 

ILLUSTRATOR S99. 75 

INHOME 
400  KEYBOARD. .  SIN-STOCK 

81X3 
80  COLUMN  SCREEN 
BOARD $259.75 


TURTLE  TUTOR  ....S22.7S 
TURTLE  TRAINER  ..S22.75 
TURTLE  GRAPHICS  S37.75 

SOUND  BOX  J9.95 

64  FORTH S39.95 

HESMON   $22.75 

GRIORUNNER $19.75 

ATTACK  OF  MC  ,...$22.75 

HESWRITEfl $28.75 

OMNI  WRITER S45.75 

TYPE  N  WRITER..    ,S24.75 

PAINT  BRUSH $22-75 

BENJI $25.75 

HOME  MANAGER  $28.75 
TIME  MONEY  MGR.S44.75 

OMNICALC $33,75 

SWORO  POINT $19.95 

HES  MODEM  $49.95 

M    MULTIPLAN S5S.75 


CONTINENTAL  64 

HOMEACCOUNTD    S44.75 

TAX  ADVANTAGE $35.75 

fCM $35.75 

64  USERS  OF  ENCYC  ....$12.75 

20  ENCYCLOPEDIA  $12,75 

KOALA  64 

KOALA  TABLET S69.7S 

PROGRAMMERSGUIDE.. .  SI  2.75 
GEOMETRIC  DESIGNS -..S22. 75 

LOGO  DESIGN S27.75 

SPIDEREATER S22.75 

SYNAPSE  64 

BLUE  MAX  C/D $24.75 

ZEPPELIN  C/0  S24.75 

PHAROAH'SCyO $24.75 

SHAMUSC.'D S24.7S 

PARKER  64 

FROGGER  $32. 75 

OBERT S32.75 

TUTANKHAM $3S,7S 


^S  commodore 


SPINNAKER  &4 

KINDERCOMPD/R $21.75 

STORY  MACH  ROM S24.75 

FACE  MAKER  0/R -$24.75 

SNOOPERTH  D S26.7S 

SN0OPERT2  D $26.75 

DELTA  DRAW  ROM $26,75 

FRACTION  F  ROM S24.75 

KIDS  ON  KEYS  $24,75 

ALPHABET  ZOO $24.75 

MOST  AMAZING  R $26-75 


CARDCO 

G  PRINTER 

INTERFACE  S64.75 

B  PRINTER 

INTERFACE  S39.75 

KEY  PAD  64 $29.75 

LIGHT  PEN  $29.75 

3  SLOT  EXPANSION  $24.75 

5  SLOT  EXPANSION $54.75 

6  SLOT  EXPANSION $79,75 

PRINTER  UTILITY $19.75 

CASSETTE  INTERFACE... $29.75 

WRITE  NOW  20 $29.75 

WRITE  NOW  64 $39.75 

HAIL  NOW $29.75 

DM-1  PRINTER $109.75 

LQ-1  PRINTER S499.75 

BflODERBUN0  64 

BANK  STREET  D S44.75 

CHOPLIFTER  R $29.95 

DAVIDD  MAGIC S24.9S 

DROLD/R S24.95 

LODE  RUN  D/R $24.95 

SEAFOX  R     S29.95 

SPARE  CHANGE  D $24.95 


PARKER 

FROGGER  $32.75 

QBI-RT,    .- $32  75 


SPINNAKER 
KINDERCOMP  0/R  . .  $20.75 
STORY  MACH  D/R...  $26.75 


AT88S1   ..$249.00 
]rDF4QSI  S2RC>  nn 


SSI 


KNIGHTS  OF  DESERT  $26.75 

EAGLES $26.75 

TIGERS  IN  SNOW $26.75 

COMBAT  LEADER S26.75 


DATASOFT 

SPELL  WIZZARD  ....  S34.75 

TEXT  WIZZARD $34  75 

WORDWIZZARD  $46  75 

ZAXXONC/D S26  75 


GEMINMO  ■■■■. . .  $259.00 


BRODERBUND 
BANK  STREET  D  ,..$44.75 

CHOPLIFTER  D $32.95 

DAVIDD  MAGIC  ....$24.95 

DROL  D $24.95 

LODE  RUN  D $24.95 

SEAFOX  0  $22-95 

SPARE  CHANGE  D  .524.95 
AE    D --..$24.75 

EPVX 
JUMPMAN  C/0    ...   S27.75 
JUMPMAN  JBR  ,...$27.75 

PITSTOPR $27.75 

TEMPLE  ASPHAI  ...$27.75 
GATE  T  ASPHAI  ....$27.75 
CRUSH.  CaC  C/D-..S21.75 

UK 
LETTER  PERFECT.  .$69.75 
DATA  PERFECT  ....  $69.75 
SPELL  PERFECT  ...$69.75 


A 

ATARI 


P*CMAN -S29.75 

DONKEY  KONG$29,75 

DIG  DUG J2B  75 

CENTIPEDE  .  $29^75 
STAR  RAIDERS  $32.75 
ROBOTRON,,,.  S32  75 

PA'NT S32:75 

JOIJST ,3575 

LOGO $69.75 

ATARI  WRITER    $79.75  ' 

BOOK  KEEPERS104.75  Computers  forpcoplt. 

VISICALC $159.75     O 

HOME  FILING  MGR $35  75 

PILOT  HOME  SS4  75 

■^eifPAD S9s:75 

800XL SCALL  I 

1 C60  DISK  DRIVE  $ CALL 
1050  RECORDER  S74.0oI 
1027  PRINTER       SCALL 
J^SPBNTER^  INSTDt^f 


TO  ORDER 


CALL   TOLL  FREE 


or  send  order  lo 
LyCo  Computer 

^.ct^^       c  P  O    Bo.  5088 

.ustomer  Service  1-71  7-3271825  Jersey  Shore    PA  1774C 


800-233-8760 


POLICY 

In  stock  .terns  shipped  w.thin  24  hours  ot  ofder  Personal 
checks  require  tour  weeks  clearance  beiore  shipp.ng  No 
depositonC  O  D  orde/s  Freeshipping  on  preoaiflcash  orders 
within  the  conimentai  U  S  PA  residents  add  sales  tan  All 
products  subiecl  to  availability  and  price  change  Adveriised 
prices  show  4",  discount  offered  (or  cash  adO  4'-  toi  Master 
Card  or  Visa    DEALER  INQUIfilES  INVITED 


Advertisers  Index 
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Abacus  Software   65 
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102  AB  Computers    87 
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107  Bofteries  Included    43 
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Save  V£  40%  on  COMPUTE!    Save  Vi'  40%  on  COMPUTE! 


Every  issue  ofCOMPUTE!  contains  up  to  AO  new  programs 
and  games.  And  a  year's  subscription  brings  ihem  to  you 
for  less  than  1 5  cents  each!  Plus  you'll  enjoy  the  most  useful 
home  computer  advice,  ideas  and  information  anwhere! 
Subscribe  now  at  up  to  40%  oft'  the  newsstand  price.  At  less 
than  15  cents  perprogram,  this  COMPUTE!  ofl'er  is  too  good 
to  pass  up! 

D  1  year  :f;24— Sa\'e  32% !    D  2  years  $4,5-Save  367r ! 


D  3  years  $65— Save  40^/ 


Nome  . 


Every  issue  of  COMPUTE!  contains  up  to  30  new  progratns 
and  games.  And  a  year's  subscription  brings  them  to  you 
for  less  than  1.5  cents  each!  Plus  you'll  enjoy  the  most  useful 
home  computer  advice,  ideas  and  information  anywhere! 
Subscribe  now  at  up  to  40Tt  off  the  newsstand  price.  At  less 
than  15  cents  per  program,  this  COMPUTE!  offer  is  too  good 
to  pass  up! 

D  1  year  $24— Save  32% !    D  2  years  $45— Save  36% ! 
D  3  years  $65— Save  40% ! 
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City 


-  State - 


-Zip. 


D  Payment  enclosed         D  Bill  me 

Charge  my      D  Visa   D  MasterCard   □  American  Express 


Account  No. 


COMPUTE!  brings  vou  programs  and  games  for  the  following 
machines:  Atari.  PET/CBM,  VIC-20,  TI 99/4A,  Apple,  Commo- 
dore 64,  Radio  Shack  Color  Computer,  IBM  PC  and  IBM  PCjr. 


City 


.Stale 


_Zip  . 


D  Payment  enclosed  D  Bill  me 

Charge  my    □  Visa    D  MasterCard    D  American  Express 
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Exp.  date  Account  No. 


Exp.  date 


COMPUTE!  brings  vou  programs  and  games  for  the  following 
machines;  Atari,  PET/CBM,  VIC-20,  TI  99/4A,  Apple,  Commo- 
dore (54,  Radio  Shack  Color  Computer,  IBM  PC  and  IBM  PCjr. 


3<MOt 


3 
5-  ro 


^0 

3  row 

11% 


(D 


O 

i 

03 

i 

o 

c 

> 

(/) 

^mm 

CP 

-c 

z 

^ 

i 

m 

C33 

z 

(/) 

S 

N3 

C/) 

fO 

?o 

!S 

0 

m 

m 

■0 

2 

■^ 

^ 

P 

n 

^ 

> 
a 

c 
z 

7 

o 

Z 

s 

■> 

n 

t/1 

T 

^ 

m 

o 

> 

5 

s 

Ln 

5  5 

=    m 

Nl 


q 

33 
t/1 

09 

1 

i 

O 

c 

> 

t/1 

</> 

s 

;5 

z 

>" 

^ 

m 

u 

03 

z 

in 

> 

t/> 

'O 

?D 

K 

30 

m 

13 

z 

■■■ 

o 

^ 

p 

O 

A 

> 

The  Editor's  Feedback: 

Computer:  D  PET  u  Apple  u  Atari  D  VIC-20  U  Commodore  64 
n  TI-99/4A  □  Timex/Sinclair  C  Radio  Shacl<  Color  Computer 
D  Other D  Don't  yet  inave  or^e ... 


Are  you  a  cOfi/iPUTEi  Subscriber? 
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Specific  appticofions 
programs. 
BASIC  programs. 
Machine  language 
progfoms 
Tutorials 

Educational  articles. 
Detailed  explanations 
of  programs. 
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Games. 

Reviews  of  game 

software. 

Reviews  of  business 

software. 

Reviews  of  educational 

software. 

Reviews  of  hordware. 
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COMPUTEI's 

FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  information 
about  the  products  advertised  in  this  issue, 
Clearly  print  or  type  your  full  name  and  ad- 
dress. Only  one  card  should  be  used  per 
person.  Circle  the  numbers  that  correspond  to 
the  key  number  appearing  in  the  odvertisers 
index, 

Send  in  the  card  and  the  advertisers  will  receive 
your  inquiry.  Although  every  effort  is  made  to 
insure  that  only  advertisers  wishing  to  provide 
product  information  hove  reader  service  num,- 
bers,  COMPUTE!  cannot  be  responsible  if  ad- 
vertisers do  not  provide  literature  to  readers. 

Please  use  these  cords  only  for  subscribing  or 
for  requesting  product  information,  Editorial 
and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTE!,  P,0,  Box  5406, 
Greensboro,  NC  27403,  Check  the  expiration 
date  on  the  card  to  insure  proper  handling. 

Use  these  cards  and  this  address  only  for 
COMPUTEI's  Reoder  Information  Service.  Do 
not  send  with  payment  in  any  form. 
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Circle  101  for  a  one  year  new  U.S,  subscription  to 
cOMPUTt!  you  will  be  billed  for  $24, 

Please  print  or  type  your  full  name  and  address. 

Limit  one  card  per  person. 

Name 

Address 

City 


State/Province 


Zip 


Country 


Please  include  zip  code.  Expiration  10/31/84. 
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CARDCO  "NOW"  SOFTWARE 

. . .  available  now  for  your  Commodore-64'  "and  morel 


A  fine  line  of  software  developed  by  CARDCO  for  your 
Commodore-64  computer  witli  all  the  features  you  sfiould 
expect  In  much  more  costty  software.  CARDCO's  "NOW" 
Series  provides  many  unique  and  exclusive  features  and  are 
packaged  lor  easy  reference,  simple  storage,  instant 
recognition, 

"WMTE  NOW" . . .  WORD  PROCESSOR  SOF1WARE  ...  An 

excellent  time  saver,  CARDCO  offers  the  "Write  Now"  C/  92 
word  processor  program  with  buift-in  80  column  display.  You 
see  exactly  what  will  print.  All  special  codes  can  be 
transmitted  to  printers  maintaining  justification.  Easy  full-screen 
editing;  vwarks  with  any  printer. 

"MATL  NOW" . . .  MAIUN6  UST  SOFTWARE . . .  CARDCO's 
D/  pi  "Mall  Now"  quickly  (In  memory)  sorts  by  zip,  category, 
name  and  state;  fully  compatible  with  "Write  Now".  Other  tine 
features  include:  user-oriented;  nnenu-driven  operation;  each 
disl<  supports  600  entries.  Fomrat  can  print  single,  double  or 
triple  labels  across. 

"SPEUNOW" . . .  Cardware  D/(M . . .  a  fine  program 
designed  as  a  spjell  checker  for  use  with  "Write  Now"  on  the 
Commodore-64.  A  34,000  word  dictionory  wilti  two  additional 
user  constructed  dictionaries,  fvlenu-driven  operation  for  ease 
of  use.  And  "Spell  Now"  allows  you  to  see  each  misspelled 
word  in  ttie  context  of  your  document  for  correction. 

"FILE  NOW" ...  D/  (K ...  is  a  totally  integrated,  menu-driven 
database  softvrare  package  which  Interfaoes  with  both  the 
"Write  Now!"  for  ttie  64  and  the  "Spell  Now."  40K  of  vrorking 
storage  space  is  available  with  "File  Now".  "File  Now" 


appears  on  the  screen  as  index  cards  for  easier 
manipulation  of  your  data  base;  you  see  5  index  cards  at  a 
time.  Cards  are  user  defineable,  i.e.,  user  determines  what 
goes  w^ere  on  the  "index  cards"  and  can  sort  by  any  given 
field.  Every  card  has  a  general  topic  field  v4iich  allows  for 
quick  sorting  through  cards. 

"GRAPH  NOW"  INCLUDING . . .  "PAINT  NOW" ...  D/  06 

. . .  This  disk-based  graphic/logo  generator  Is  totaify  menu- 
driven.  Allows  for  the  development  of  pies,  charts,  bar 
graphs  and  other  vivid  graphic  illustrations.  Also  has  the 
ability  to  design,  and  print  logos  and  high  resolution 
pictures.  "Commodore-ready";  interfaces  with  CW?DCO'S 
"Write  Now"  Word  Processor,  "Mail  Now",  "Spell  Now"  and 
"File  Nov/'. 

Write  for  Illustrated  literature  and  prices  or  see  CARDCO 
Computer  Accessories  and  Software  wherever  Computers 
are  sold. 


cardco,  inc. 


300  S.  Topeka    Wichita,  Kansas  67202    (316)  267-6525 
"The  world's  largest  manufacturer  of  Commodore  accessories." 


Commodofe"  Is  a  registered  trodemort  c4  Commodore  Bustnes  Systems,  Itx;. 
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